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PREFACE 



This document consists of three elements. 

1. The Look-up Table. The table is located following the first divider. 

2. The HP 3000 Series II Microprogram Listing. The listing follows the second divider. 

3. The HP 3000 Series II Extended Instruction Set Listing. The Listing follows the third divider. 

4. The Microprogramming Language Description. The description follows the fourth divider. 
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W s 1 -INSURES CORRECT JLUI MAPPING. 

PADD IS CORRECT DISPLACEMENT IN ALL INSTRUCTIONS. 
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SPEC 3 s 00/17 
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1 


MO 
NO 


-padd 


8 


» 


15 





MO 




8 


- 


15 





NO 




8 


- 


15 





NO 





LUT CONTROL RAR LABEL Op CODE ENTRY INSTR 



SR>* PREADDER W JLUI 



COMMENTS 



8/30/76 



PAGE 8 



stackops 

SINGLE ENTRY PER INSTRUCTION. 
W, PAOD ARE DON»T CARES, 
DEFAULT IS PADD a -CIR(8-15), 



300 


1111 


mi 


0564 


NOP STACKOPS NOP 





8 


m 


15 


I NO 


301 


1011 


ini 


0646 


OELB 


OELB 


2 


8 


m 


15 


1 NO 


302 


1011 


UU 


644 


OOEL 


DOEL 


P 


8 


m 


15 


1 MO 


303 


1111 


nil 


0775 


ZROX 


ZROX 





8 


— 


15 


1 MO 


304 


1111 


mi 


0552 


INCX 


INCX 





n 


„ 


15 


1 NO 


305 


1111 


mi 


553 


OECX 


OECX 





H 


_ 


15 


I MO 


306 


1111 


nn 


0773 


ZERO 


ZERO 





8 


— 


15 


I NO 


307 


1111 


nn 


0767 


DZRO 


DZRO 





8 


m 


15 


I NO 


310 


0111 


nn 


0634 


OCMP 


DCMP 


4 


8 


m 


15 


1 NO 


311 


' 0111 


mi 


0620 


OAOD 


DAOD 


4 


8 


„ 


15 


I MO 


312 


0111 


mi 


0624 


OSUB 


DSUB 


4 


8 


«. 


15 


I MO 


313 


1011 


llll 


0705 


MPYL 


MPYL 


? 


H 


_ 


15 


I MO 


314 


1001 


ini 


0724 


DltfL 


DIVL 


3 


a 


„ 


15 


I MO 


315 


1011 


mi 


0630 


DNEG 


DNEG 


2 


« 


m 


15 


I MO 


316 


0111 


mi 


0574 


DXCH 


DXCH 


4 


8 


m 


15 


L NO 


317 


1011 


nn 


0615 


CMP 


CMP 


? 


8 


.. 


15 


I MO 


320 


1011 


ini 


0612 


ADD 


ADD 


? 


8 


— 


15 


L MO 


321 


1011 


nn 


0613 


SUB 


SUB 


? 


a 


m 


15 ] 


I MO 


322 


1011 


mi 


0704 


MPY 


MPY 


? 


q 


— 


15 ] 


L MO 


323 


1011 


nn 


0721 


DIV 


OIV 


2 


8 


„ 


15 1 


L NO 


324 


1101 


nn 


0614 


NEG 


NEG 


I 


H 


^ 


15 ] 


MO 


325 


1101 


nn 


1261 


TEST 


TEST 


1 


8 


«. 


15 1 


NO 


326 


1011 


Ini 


0610 


SfBX 


5TBX 


P 


8 


^ 


15 ] 


NO 


327 


ion 


mi 


0560 


DTST 


DTST 


3 


ft 


— 


15 ] 


MO 


330 


ion 


nn 


1212 


DFLT 


DFLT 


2 


8 


„ 


IS 1 


MO 


331 


noi 


nu 


1262 


BTST 


BTST 


1 


8 


„, 


15 3 


NO 


332 


1011 


nn 


0572 


XCH 


XCH 


P. 


8 


— 


15 ] 


MO 


333 


1101 


nn 


0554 


INCA 


INCA 


1 


S 


«. 


15 ] 


MO 


334 


1101 


nn 


0555 


DECA 


DECA 


1 


8 


„ 


15 1 


MO 


335 


1101 


nn 


0566 


XAX 


XAX 


1 


8 


_ 


IS 1 


MO 


336 


1101 


nn 


0605 


ADAX 


ADAX 


1 


R 


— 


15 1 


MO 


337 


1101 


mi 


603 


ADXA 


ADXA 


1 


8 


- 


15 1 


MO 



LUT 


CONTROL 


RAR 


LABEL 


340 


1101 


1 11 


1 0645 


DEL 


341 


1011 


111 


1 0640 


ZROB 


342 


1011 


ill 


1 0606 


LDXB 


343 


1101 


111 


1 0604 


STAX 


344 


1111 


111 


1 0601 


LDXA 


345 


1101 


111 


1 0761 


OUP 


346 


1011 


111 


1 0763 


DDUP 


347 


1101 


111 


1 1207 


FLT 


350 


0111 


111 


1 1201 


FCMp 


351 


0111 


111 


LI 1001 


FADD 


352 


0111 


111 


11 1000 


FSUB 


353 


0111 


111 


LI 1060 


FMPY 


354 


0111 


11 


LI 1110 


FOIV 


355 


1011 


ii 


Ll 1175 


FNEG 


356 


1001 


]1 


LI 0577 


CAB 


357 


1011 


11 


11 0642 


LCMP 


360 


ion 


ii 


11 0647 


LAOO 


361 


1011 


ii 


Ll 0650 


LSUB 


368 


1011 


\i 


11 0655 


LMPY 


363 


1001 


U 


11 0663 


LDIV 


364 


1101 


1 1 


11 0654 


NOT 


365 


1011 


ii 


11 0023 


OH 


366 


1011 


ii 


11 0027 


XOR 


367 


ion 


ii 


Ll 0033 


AND 


370 


ion 


l* 


Ll 1223 


FIXR 


371 


ion 


H 


11 1222 


FIXT 


372 


1111 


n 


11 7777 




373 


1011 


ii 


11 0556 


INCB 


374 


1011 


U 


11 0557 


DECB 


375 


1011 


ii 


11 0570 


XBX 


376 


ion 


ii 


11 0611 


ADBX 


377 


1011 


ii 


11 0607 


ADXB 



LABEL OP CODE ENTRY INSTR 



INSTR 


SR>a 


PREADDER \ 


JLUI 


COMMENTS 


DEL 


1 


a 


m 


15 1 


NO 




ZROB 


2 


8 


- 


IB 1 


NO 




LDXB 


2 


a 


- 


15 1 


NO 




STAX 


I 


a 


m 


15 i 


NO 




LDXA 





a 


» 


15 1 


NO 




OUP 


1 


a 


- 


15 1 


NO 




DDUP 


2 


a 


- 


15 ] 


NO 




FLT 


1 


a 


- 


15 1 


NO 




FCMP 


4 


3 


- 


15 1 


NO 




FADD 


4 


a 


- 


15 1 


I NO 




FSUB 


4 


8 


- 


15 1 


I MO 




FMPY 


4 


a 


- 


15 : 


L NO 




FDIV 


4 


a 


- 


15 ! 


L NO 




FNEG 


2 


a 


~ 


15 


L NO 




CAB 


3 


a 


- 


15 


I NO 




LCMP 


2 


a 


m 


15 


I NO 




LADD 


? 


a 


m 


15 


L NO 




LSUB 


2 


a 


- 


15 


L NO 




LMPY 


2 


a 


- 


15 


L NO 




LDIV 


3 


a 


- 


IS 


I MO 




NOT 


1 


a 


- 


15 


L NO 




OR 


2 


a 


- 


15 


NO 




XOR 


2 


a 


- 


15 


I NO 




AND 


2 


a 


• 


15 


I NO 




FIXR 


2 


a 


- 


15 


1 NO 




FIXT 


2 


a 


- 


15 


1 NO 




SPARE 










MO 




INCB 


2 


a 


m 


15 


I NO 




DECB 


P 


a 


- 


15 


I NO 




XBX 


2 


a 


m 


15 


1 NO 




ADBX 


2 


a 


„ 


15 


1 NO 




ADXB 


P 


a 


- 


15 


1 NO 





6/20/76 
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HP 3000 SERIES II 



MICROPROGRAM 

LISTING 



1-13-76 



rtK ■ 1 ADDRESS CONSENTS tAB L RBUS SBUS FUNIC SHFT 5T0R SPEC SKIP COMMENTS FRI, AUQ 13, 1*76, 2105 PM 

1 
2 
3 

S 

s 

T 

S 

9 
10 
11 
13 
13 
14 
15 
16 
17 
-IB 
19 
SO 
21 
22 
S3 
2* 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3* 
35 
36 
37 
3B 
39 
40 
01 
02 
03 
00 
05 
06 
07 
08 
09 
SO 
51 
92 
53 
50 
55 



ADDRESS CONSENTS LAB L RBUS SBUS FUNIC SHFT 5T0R SPEC SKIP 


COMMENTS 


FRI, AU 




» 


MC-3000/II REV. B 


<2K PARITY) 










« 


SHOULD 


NOT HAVE PARITY FOR 


6,0-7 SINCE RAR TARGETS MAY BE 


ADDED, 




ft 


(6.0- 


•7 DO NOT HAVE PARITY) 










ft 
ft 

ft 


SHOULO 


not have parity for 


14 AND IS 


SINCE MORE 


CODE MAY 


BE ADDED, 




ft 
ft 


«ftftft«ftttft 


ftftftftftftftft 


ftftftftftftftft 


ftft««««ftft 


«ft 


ftftftftftftftft 


ftftftftftftftft 




ft 


ftftftftftftftft 


ftftttftftftftft 


ftftftftftftftft 


«ft««*«ftft 


ft« 


ftftftftftftftft 


ftftftftftftftft 




ft 


«« 


ftft »« 


ftft ftft 


«« ftft 


«ft 


ftft 


ftft 




ft 


»ft 


ftft ftft 


• ft ftft 


ftft «« 


ftft 


ftft 


ftft 




ft 


ftft»»ft» 


ftft ftft 


• • ftft 


ft* ftft 


ftft 


ftft 


«« 




ft 


»««»«» 


ftft ftft 


»» ftft 


ftft ftft 


ftft 


ft« 


»ft 




ft 


«ft 


ftft ftft 


«« ftft 


ft« «« 


ft» 


«« 


«ft 




ft 


«ft 


• ft ftft 


ftft ftft 


tt« ftft 


ft« 


«« 


ftft 




ft 


*•»»•••• 


ftftftftftftftft 


ftftftftftftftft 


«ftft»»«ftft 


** 


ftftttftftftftft 


ftftftftftftftft 




ft 

ft 

ft 
ft 
ft 


*««•«»«» 


ftftftftftftftft 


ftftftftftftftft 


«««»«««« 


ftft 


«»««»•«« 


ftft«ftftft«« 




ft 
ft 
ft 
ft 
ft 


« » 


ftftftftftftftft 


«««««ft«ft 


«»««««»« 


«ttft«««ftft 








ft 


ft* ftft 


ftftftftftftftft 


ftft«««»tt» 


ftftftftftftftft 


«ftft««ftftft 








ft 


#«« ftftft 


ftft 


ftft 


ftft ftft 


«» «ft 








ft 


««ftftft««« 


ftft 


«« 


»# #« 


ftft ftft 








ft 


a* ft« ftft 


ftft 


«» 


ftftftftftftftft 


ftft «ft 








ft 


«» ftft 


ftft 


ftft 


ftftftftftftftft 


ftft ftft 


ftftftftft* 






ft 


ftft ft« 


ftft 


ft« 


«« «» 


«« «« 


»ttft»ftft 






ft 


#* *» 


ftft 


ftft 


ftft «# 


«» ftft 








ft 


ft* ** 


ftftftftftftftft 


ftftftftftftftft 


ft» ftft 


#ftftft«ft«ft 








ft 
ft 
ft 

ft 
ft 


** ** 


ftftftftftftftft 


ft««ftftftftft 


«ft «« 


ftftftftftftftft 








ft 

ft 
ft 
ft 

ft 


m#ftft#»« ft 


ftftftftftftftft 


ftftftftftftftft 


ftftft»«4>«« 


ftftftftftftftft 


ft« 


ft « 




ft 


ftftftftftftftft 


ftftftftftftftft 


ftftftftftftftft 


ftftttftftftftft 


ftftftftftftftft 


«ft«ft 


ftft ft* 




ft 


»« »« 


ftft ftft 


ftft ftft 


ftft ftft 


«« «ft 


ftft «ft 


• ft.* ftft» 




ft 


«« ftft 


ftft ftft 


ftft ftft 


ftft 


ttft ftft 


ftft ftft 


ftftftftftftftft 




ft 


ftftftftftftftft 


ftftftftftftftft 


ftft ft« 


ftft ftftftftft 


ftftftftftftftft 


«»#ft#ftftft 


• ft ftft ftft 




ft 


# »ftftft#ftft 


ftftftftftftftft 


«« »« 


ftft ftftftftft 


«««««««» 


«»»«ft«ftft 


• ft *ft 




ft 


#* 


ftft ftft 


ftft ftft 


ftft ftft ftft 


• • »# 


«ft ftft 


*# ft* 




ft 


»« 


ftft ftft 


ftft ftft 


ftft ftft 


ftft ftft 


«ft ftft 


• ft «« 




ft 


»* 


ftft ftft 


ftftftftftftftft 


ftftftftftftftft 


«« ftft 


ftft ftft 


• • ftft 




ft 
ft 
ft 


ft* 


ftft ftft 


ftftftftftftftft 


ftftftftftftftft 


*« ft« 


«« ftft 


*# ## 



PA3E. 2 ADDRESS CONTENTS LABj R8US SBUS FUNC SHFT STOR SPEC SKIP COMMENTS FRI, AUG 13, 1*76, 2105 PM 

56 * 

57 • 

58 » SECTOR 
59- • 

50 * p ON, CPU RESET, ER HARDWARE ENTRIES 

51 » 

62 # SR PREADJUST ROUTINE 

63 * 

64 * BOOLEAN STACkOPSS OR, XOR, AND 

65 * 

66 * ADOR COMPUTATION ROUTINES ACl-2S,L)»P, AC3-5S,D, AINC, ALS8 

67 ft FOR MEM REF INSTRS, E REFERS To EFFECTIVE OPERANO ADOR, 
69 • 

69 * subroutine: TSCK 

TO * 

71 * MEM REF INSTRS J AODM, CMPM, DECM, INCM, LDB , LDO , LOPN, 

72 * ft UDPP, LDX , LOAD, LRA , STB , STD , STOR, 

73 # SUBM (MPYM IS IN SECTOR 1) 
7 4 » 

75 » PLOA/PSTA, LSEA/LDEA/SSEA/SOFA , LST, SST 

7 6 * 

77 * 

78 0000 37306303120 JMP TRP7 SPI UNC UNIM INST* (WRAP AROUND* 

79 0001 37766302742 JMP PWR UNC POWER ON ENTRY 

80 0002 37766302765 JMP CPRS UNC CPU RESET ENTRY 

81 0003 37766363001 JMP IR UNC INTERRUPT ENTRY 

82 * 

83 » 

84 ft CMPM 

85 • DB,Q,S OR P REL AnDR| ENTER WITH oPNDs(E) 

86 * 

87 0004 2O317017777 CMPm OPND ADD SPI SRN/ SPI . (E) 

83 .0005 337623&173? RA JS8 PUD UNC FILL A TOS REG IF NEC 

89 0006 01767477556 UBUS SPI SUB POPA NOFL CCA ON (S)-(E) 
•«* WARNING ( 8) ftftft TOS'LOAD NAME IS nLO NAME BEFORE PRECEDING PUSH, POP OR INCN 

90 0007 007733577S3 RA CIR. IOR CCA NEXT REVERSE CCG, CCL IF OVFL 

91 0010 37777707777 ADD NEXT lCIR>0 SO NO CCE IF OVFL) 
9? «» 

93 * 

94 ♦ INCM, DECM 

95 ft DB,Q OR S REL ADDR» ENTER WITH SP0»fc, OPNOsME), 

9$ ft F2»INCM, Fl SET AND SPl»SM+SR-E IF E IS IN TOS REGS, 

97 ft 

98 0011 203261*0015 IDM V OPND JMP 10*2 3P0 Fl IF Fl (E) IS FROM TOS RFGS 

99 0012 37177007555 SPO ADO RJS WRD F2 (F) IS FROM MEM 

100 0013 37165307435 SPO CAOO BUS DATA NEXT OECR MEM IF NF2 

101 0014 37174707435 SPO INCO 8US DATA NEXT ELSE INCR MEM 



OOll 


203261*0015 


0012 


37177007555 


0013 


37165307435 


0014 


37174707435 


0015 


37074S67775 


0016 


3706S3O7775 


0017 


37777737777 



102 * 

103 0015 37074Sfa7775 IDM a SPO INCO MREG F2 INCR MEM 

104 0016 3706S3O7775 SPO CADO f'REG NEXT ELSE IF NFg DECR MEM 

105 0017 37777737777 ADD NEXT 

106 " " » 

107 ■ • ' 

108 ft SRP IS THE STACK PREADJUST ROUTINE! ENTERED AUTOMATICALLY 

109 * <AT 20,24,30,34 FOR PULL 1 TO 4) IF SR < THE VALUE SPECIFIEU 



PA3E 



ADDRESS CONTENTS 



LA»l RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13. 1*76, 2J05 PM 



110 
111 
IIS 
113 
11* 
115 
116 
117 

ne 

119 
ISO 
121 
122 
123 
12* 
123 
126 
127 
126 
129 
130 
131 
132 
133 
13* 
133 
136 
137 
138 
139 
140 
1*1 
14B 
143 
144 
145 
146 
14 T 
148 
149 
ISO 
151 
158 
153 
154 
155 
156 
1ST 
158 
159 
160 
161 
163 
163 
164 



0020 23137767777 



0021 
002a 



0024 
0025 
0086 



0030 
0031 
0032 



0034 
0035 
0036 
0037 
0040 
0041 



26557757757 
3746736747* 



0033 32653357553 



231375&7777 
26277777217 
37467367475 



0027 32643357553 



23137557777 
26277777217 
37467367475 



0033 32643757553 



23137557777 
26277777217 
22767127355 
377662&3120 
26277777217 
3746731745"? 



0042 37777777777 

0043 16137777561 

0044 23767117776 



» IN THE LOT FOR THE CURRENT INSTR. 

# EXIT WITH RANK! JLUI WITH SM.SM-1. 

# LDX, OR, XOR, AND INSTRS ARE EMBEoOED IN HOLES IN SRP. 
tt 

S.00-»0 



SRP* 

» 
ft 
« 
LDX 

» 



SM 



LDX 



ADD 



8SP0 ROS UNC 



READ (SM) » SKIP HOLE 



DB,Q,S OR P REL ADDRl ENTER WITH 0PND*(E) 

OPND ADD X CCA NEXT LOAD X, NEXT 



SPQ 



CAI 



SM 



SF1 UNC 



OR 



DECR SM| SKIP HOLE 



(S-1),.(S)0R(S-1) t 
CCA, S.S-l f NEXT 

HEAD (SM), 1ST ENTRY IF NFl 

NO, QUP WORD 

DECR SM} SKIP HOLE 



(S-l).(S) XOR(S-l) , 
CCA, S.S-1, NEXT 

READ (SM), 1ST ENTRY IF \'F1 

NO, QUE WORD 

OECK SM, SKIP HOLE 



(S-l )-(S) AND(S-l) , 
CCA, S-S-l, NEXT 

READ (SM), 1ST ENTRY IF NFl 

NO, UUP WORD 

CLIBl SM<«DB OR WRAP AROUND 

YES. STUN IF NPRV 

QUP WORD, 1NSR 

CF1, DFCR SM, EX INSTR 



AC1S,D IS THE S AND OB,Q REL ADDR COMPUTATION ROUTINE 

FOR ADDM,CMPM,DECM, INCM, LDX , LOAD , MPYM, SUBM . 
IF ENTERED AT.AClS SBUSsSM- RBUSspADD* ( XC IF NOT INDR). 
IF ENTERED AT ACID SBUSsQB* OR Q + - *BUS=PADD+ ( XC IF NOT INDR) 

INSTEAD OF SR+UBUS, 
INCM ENTERS AT ACi2 FROM AlNC WITH F2 AND A RNKi JMP WITH SPO.ADDR. 
LDD MAY USE AC14 TO CK TOS IF INDP (CUB ALREADY EXECUTED, F3sl), 
EXIT WITH SP0-E» OPNn.(E), Fl IF F IN TOS ( SPl.SM+SR-E ) , F2*INCM, 

F3 IF INDR, 
BUSOPS USE DB-BNK TO SPECIFY DB OR S-BNK FOR DB 0« Q,S REL ADDRS. 



« 


ENTEF 


* WITH SR>» 


2 








OR 

» 
SRPi 


RA 


RB IOR 




RB 


POPA 


NEXT 




SM ADD 




BSPO 


ROS 


NFl 






OPND ADD 




OUP 


INSR 







SPO 


CAD 




SM 


SF1 


UNC 


« 




XOR 










# 


ENTER WITH SR>« 


2 








XOR 


RA 


RB XOR 




RB 


POPA 


NEXT 


SRP^ 




SM ADD 
OPND ADD 




PSPO 
CUP 


ROS 
INSR 


NFl 


« 


SPO 


CAD 




SM 


SF1 


UNC 




AND 










» 


ENTER WITH SR>a 


2 








AND 

» 

SRPi 


RA 


RB AND 




RB 


POPA 


NEXT 




SM ADD 




BSPO 


ROS 


NFl 






OPND ADD 




OUP 


INSR 






SPO 


DB CAD 

JMP 
OPMD ADD 


STUN 


OUP 


CLlB 

INSR 


POS 

NPRv 




SPO 


CAD 




SM 


CF1 


JLUl 



ft 

» 

ACls ADD 

ACl n SR UBUS ADO 

AC1? UBUS SM CAD 



BSPO ROD 



NCRY 



S REL ENTRY 
DB,Q REL ENTRY 
E>SM7 



PA9E 4 


ADDRESS C0NTEN7S 


»•« WARNING 


(16) «»« BOUNUS 7EST 


165 


0045 


16306504141 


165 






167 


004ft 


34766717775 


163 


00*7 


37766140055 


169 


0050 


22777777347 


UO 


0051 


26137777576 


171 


0052 


23767117076 


«•« WARNING 


U6) •»* BOUNDS TEST 


178 


0053 


1630650*141 


173 






17fc 


0054 


34766717455 


175 


0055 


3/7623*0272 


176 


0056 


37777717777 


177 


0057 


37766360050 


178 






179 






180 






181 






182 






183 






164 






185 


0060 


37777777777 


186 


0061 


37107377376 


187 


006? 


16766777760 


18B 


0063 


36766717774 


189 


0064 


01777777347 


190 


0065 


26117777376 


191 


0066 


16766777760 


198 


0067 


36766717774 


193 






194 






195 






196 






197 






198 


007Q 


37317777417 


199 


0071 


00771047077 


200 


0072 


01117767561 


aoi 


0073 


01177777577 


202 


0074 


01326360044 


303 






204 






205 






206 






207 






208 


0075 


26302201732 


209 


0076 


00777537777 


210 


0077 


01675757773 


211 


0100 


01665757773 


218 






213 






21<» 






215 






216 






217 


0101 


37762221737 



LAB, RBUS SBUS FUNC SHF7 STQR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2105 PM 



WITH pRZ,RLZiLRZ,LLZ DOES 
SR UBUS BNDT RRZ 



SPO DL 



t CAD 
SP1 



CTF 



BNDT 

JMP AC 14 
ACl-i, XC DB ADD 
UBUS OPND ADD 
UBUS SM CAD 
WITH pRZ»RLZtLRZ,LLZ DOES A CAD 
SR UBUS BNDT RRZ 



CRRY 

SR<E-SM, 
JUUI 
Fl 



YES! BNDV IF NPKV ANO 
(SP1.SM+SR-E) SR>»E-SM? 
N01 £>»DL? DONE IF NOT INOR 
ELSE JMP IF SM<E<sSM*SR 



CLIB 
P.SPQ ROD 



SF3 NCRv 



INDRJ E c (E) ♦ XC 
SF3I E>SM7 



Ob 



ACU 



» 
AINc 



* 
# 

# 
ADDm 



» 

» 
« 
« 
« 
LOAr 



SPO DL 



BNDT 
JSB 
ADD 
JMP 



SPl CTF 



CPl 



TSCK 



ACl3 



CRRY 

SR<E-SM, 

JLUi 

UNC 

JLUI 

UNC 



YES! BNDV IF NPKV ANO 
(SPl-SM+SR-E) SR>*E-SM? 
NOI CF1, CK E>*DL IF NPRV 
SM<E<»SM+SR» CHECK TOS 
DONE IF CLIB OR NOT INDP 



» 
tt 


AC1P 


IS THE P REL 


aodR COMPUT 


« 


FOR ADDM,CMPMiLDX,LOAD»MPYM 





ENTERED WITH SBUS 


■P+- RBUS*PA 





EXIT 


WITH 


SPl_Et 


OPNr>.<E) . 


AClo 






Ann 






UBUS 




CAD 


PSP1 ROP 




PL 


UBUS 


BNDT 






SP1 


PB 


BNDT 






XC 


SP1 


ADD 


CLIB 




UBUS 


OPND 


ADD 


bspi rop 




PL 


UBUS 


BNDT 






SP1 


PB 


BNDT 





AINC IS THE ADDR COMPUTATION 
FOR 1NCM, DECM USES AC1S.D D 
THE LUT TO ASSUME A P REL ADD 



ATION ROU 
,SUBm. 
DD+I*C IF 



JLUI 



JLUI 

ROUTINE ( 
IPECTLYj 
R, THOUGH 



SR 



CIR 
SP1 
SP1 
SP1 



AOD 

ROMI 

ADD 

ADD 

JMP 



SPl 



SF2 

7077 
BSPI ROD 



nUS 
AC12 SPO 



ROD 



NSMF 
UNC 

UNC 



TINE 
NOT INOR) . 



E.E-1 SINCE P 

POINTS TO NlRi READ (E) 
CHECK PL>*E, E>»P8 IF NPKvi 

DONE IF NOT INDR 
E„(E)+E+XC 
READ (E) 

CHECK PL>*E IF uPRV 
CHECK E>a»B IF NPRV| DONE 

tVENTUALLY USING AClS,D) 
bUT iNCMfS OP COOL CAUSES 
E IS SUPPLIED CORRECTLY. 

SAVE ADQP, SF2»INCM 
CIR<7»9) s ui 7 
YES! S REL, ADO SR, READ E 
NO? UB OR Q REL, RtAD E 
FINISH ADDR COMPUTATION 



ADDM, SUBM 
OB,Q,S OR P REL ADDRl ENTER WITH OPND«(E> 



RA 
RA 



OPND JSB 
CIR ADD 
SPl 
SPl 



ADDO 
SUBO 



PUL1 SPl 

RA 
RA 



SRZ 

NEG 

NEXT 

NEXT 



FILL A TOS REG IF NEC 

(S)-<SJ+(E)| DONE 
(S)-(S)-(E)| DONE 



LOAD 
D8,Q,S OR 



P REL ADDRl ENTER WITH oPNDs 
JSB PSHM SR«* 



(E) 



EMPTY A TOS REG IF NEC 



PA8E 



ADDRESS CONTENTS 



LABt. RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AU3 13, 1*76, «fI05 PM 



218 
219 
220 
221 
222 
223 
22* 
223 
226 
227 
22B 
229 
230 
231 
232 
•«« WARNING 
233 

235 
236 
237 
239 
239 
240 
241 
243 
243 
244 
245 
246 
247 
249 
249 
250 
251 
252 
253 
25* 
255 
256 
257 
259 
259 
260 
261 
26g 
263 
264 
265 



0102 262177*7757 



OPND ADD 



PUSH CCA NEXT 



TOS-(E)! DONE 



0103 
0104 
0105 
0106 
0107 
( 16) »»» 



37777777777 
16337777761 
22727717776 
37177777575 
£3767117355 
BOUNDS TEST 



« 

» 

ft 

ft 

ft 

ft 

» 

AC2c; 

AC2r, 



AC2S,D IS THE S AND DB,Q REL ADDR COMPUTATION ROUTINE FOR LRA. 

IF ENTERED AT AC2S SBUS*SM- RBUSapADD* ( XC I F NOT INDR), 

IF ENTERED AT AC2D SBUS«DB+ OR Q+- RBUS*PADD*< XC IF NOT INDR) 

INSTEAD OF SR+UBUS, 
EXIT WITH RANK1 JLUI WITH SP2_E-Ds Op IF INDR WITH SP2- ( t. ) + XC . 
BUSOPS USE DB-BNK TO SPECIFY DB OR S-BNK FOR DB 0* Q,S REL ADD«S. 



SR UBUS 

UBUS DB 

SPO 

SPO SM 



ADD 
ADD 
SUB 
ADD 
CAD 



0110 1630677*1*1 

0111 377621 a *0272 

0112 34766777775 

0113 26737717767 



Oil* 
0115 
0116 
0117 
0120 
0121 
012? 



0123 
0124 



37777777777 
367273J7776 
36137777376 
167667 77340 
36766777775 
16777777767 
26737717776 



37762221737 
36217757777 



WITH pRZ»RL2,LRZ,LLZ DOES 
SR UBUS BNDT RRZ 
ft 

JSB TSCK 
SPO DL BNDT 
XC OPND ADD 



SPO 






SP2 




JLUT 


BUS 


ROD 






CLIB 


NCRy 


CAD 






SP1 


CTF 


SR<E-SM, 
Fl 



S REL ENTRY 
DB,Q REL ENTRY 
SPS-t-DB, DONE 
INDRJ READ <E) 
CLIB; E>S*7 



IF NOT I NOR 



SP2 



JLUT 



YESf BNDV IF 
(SPl^SM+SR-E) 
CHECK TOS IF 
CHECK £>bDL IF NPRV 
SP2-XC-MEU DONE 



NPRV AMD 

SR>=E-SM? 

SM<t<sSM+SR 



» 
ft 
ft 
» 
ft 
AC2p 



AC2P IS THE P REL ADDR COMPUTATION ROUTINE FOR LRA. 

ENTERED WITH SBUSaP*- RBUS*PADD* ( XC IF NOT INDR). 

EXIT WITH RANK1 JLUI WITH SP?.E-Pn OR IF INDR WITH SP2-SP2+XC+ < E ) . 



ADD 
UBUS PB CAD 
UBUS PB ADD 
PL UBUS BNDT 
SPO PB BNDT 
XC UBUS ADD 
UBUS OPND ADD 



SP2 
BSPO 



SP? 



NOTE That P POINTS TO NIR 
JLUT SP2-E-1-PBID0NE IF NOT INDR 
HOP INDRf F„E-1, READ (E) 

CLIB CHECK PL>*E IF NPRV 

CHECK E>at> B IF NPRV 

JLUT SP2-XC+E-PB+(E) 



0125 37777777777 



» 
» 
ft 
» 
LRA 

ft 
» 
ft 
« 
ft 
» 
« 
ft 
» 
AC3ct 



LRA 
DB,Q,S OR 



SP2 



P REL ADORl ENTER WITH SP2«REL ADDR TO 9E LOADED 



JSB 
ADD 



PSMM 



PUSH 



SR4 

NEXT 



EMPTY A TOS REG IF NEC 
TOS-KEL ADDR, NEXT 



AC3S,D IS THE ADDR COMPUTATION ROyTlNE FOR LUD. 

if entered at aC3s sbus«sm- RBUSspADD+(xcft2 if not indr). 
if entered at ac3d sbus»db+ or q+- rbusspadd+<xc*2 if not indrj 
instead of sr+ubus, 

EXIT WITH SPQ.Ei OPND»(E), Fl IF £ 
9US0PS USE DB-BNK TO SPECIFY DB OR 



IN TOS(SPl.SM+5R-E) i F3 IF INl'R, 
S-BNK FOR Db OR Q,S REL ADDRS. 



ADD 



S REL ENTRY 



266 
267 

••• WARNING 
268 
269 
270 



0126 16137777561 AC3n SR UBUS ADD BSPO ROD 

0127 23767117776 UBUS SM CAD NCRY 
< 16) •«• BOUNDS TEST WITH „RZ , RLZ , LRZ i LLZ DOES A CAD 

0130 163065041*1 SR UBUS BNDT RRZ SP1 CTF CRRY 

» SR<E"»SM, 

0131 3*766717775 SPO DL BNDT JLUI 



DB,Q REL ENTRY 
E>SM? 

YESI BNDV IF NPRV AND 
tSPl-SM+SR-E) SR>=E-SM? 
NO» E>»DL7 DONE IF NOT INDR 



f»*at 6 ADDRESS CONTENTS LAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP COMMENTS FRI, AUG 13, 1?76, 2 J OS PM 

aTX 0132 377621^0272 JSB TSCK Fl ELSE CK TOS IF SM<E<=SM+SR 

272 0133 37777712767 XC ADn SLl JLUt DONE IF NOT INDK 

273 0134 22777777356 UBUS DB ADD CLlB INDR| E„ ( E ) ♦ XC^ + DB 

274 0135 26137777576 UBUS OPND ADD BSPO ROD READ <E) 

275 0136 23767H7076 UBUS SM CAD SF3 NCRv SF3I E>SM? 
• •• WARNING (16) ••• BOUNDS TEST WITH rRZ f RLZ , LRZ , LLZ DOES A CAD 

276 0137 16306&0MM SR UBUS 8NDT RRZ SP1 CTF CRRV YESI BNDV IF NPRV AND 

277 " * SR<F-SM, (SP1-SM+SR-E) SR>»E-SM? 

278 0140 34766717455 SPO DL BNDT CF1 JLUl NOJ CFl, CK E>»DL IF NPRV 
2?t 0141 37766360055 JMP AC],4 UNC SM<E<*5M+SR| CHECK TOS 
2B0 • 

2§1 » LOAD DOUBLE WORp 

2S2 * DB,Q OR S REL ADD=?J FNTER WITH SPq>E, OPNO*(E), F3 IF INDR. 

283 * LDPP.LDPN.LDEA EXIT THROUGH I.DP2 TO PUSH DOUBLE WORD ANJ SET CCA. 

2S<» • 

255 0142 23767517455 LDO SPO SM SUB CFl NCRv CFH E+1>SM? 
#«« WARNING (16) • »« BOUNDS TEST WITH rRZ , RLZ , LRZ , LLZ DOES A CAD 

256 0143 163067?4141 SR UBUS BNDT RRZ SP1 CTF YESI BNDV IF NPRV AND 

257 " * SR<E+1-SM, <SP1_SM+SR-E+1) SR>=E+1-SM? 
288 0144 2^722221737 OPND JSB PSHM SP2 SR4 EMPTY A TOS REG IF NEC 
299 0145 3717667757?; SPO INC PUS ROD SRL3 E«E+1| READ SECOND WORD 

290 0146 3^762301737 JSB PSHM UNC EMPTY A TOS REG IF NEC 

291 0147 37762140272 JSB TSCK Fl CHECK TOS IF SM<E<»SM+SR 

292 0150 35217407757 LDO? SP2 ADO PUSH CCA ZERO PUSH FIRST WORD, CCA 

293 0151 262177*7777 OPND ADD PUSH NEXT IF FIRST WORl)«ZERO, 

294 0152 262177&7657 OPND AOD PUSH CCZ NEXT CCZ ON SECOND WORD 

295 • 

296 • 

297 » ac4s,d is the addr computation roytlne for stor, 

298 * if entered at aC4s sbus*sm- r3us«padd*(xc if not indrj. 

299 • if entered at ac4d sbuss«db + or q + - rbus«padd+ ( xc if not indr) 

300 * insteao of sr+ubus, 

301 » EXIT WITH SPO-E, Fl-tjNDF, F3 IF InDR. 

302 « BUSOPS USE DB-BNK TO SPECIFY DB OR S-BNK FOR DB 0" Q,S REL ADDRS. 

303 » 

304 0153 37777777777 AC4c ADD S REL ENT*Y 

305 0154 163377*7761 AC40 SR UBUS ADD SPO DB,Q REL ENTRY 

306 0155 34766717776 UBUS DL BNDT JLUT E>*UL? DOME IF NOT INDR 

307 0156 37177777575 SPO ADD BUS RO0 READ (E) 
309 0157 23767117355 SPO SM CAD CLlB NCRv CLIB| E>SM? 

««« WARNING (16) #»» "BOUNDS TEST WITH pRZ , RLZ , LRZ , LLZ DOES A CAD 

309 0160 163067f4l41 SR UBUS BNDT RRZ SP1 CTF YESI BNDV IF NPRV AND 

310 " # SR<F-SM, (SP1-SM+SR-E) SR>=E-SM? 

311 0161 377621*027? „ JSB TSCK Fl CHECK TOS IF SM<E«=SM+SR 

312 0162 22777777767 XC DB ADD 

313 0163 26337777776 UBUS OPND ADD SPO E * (E> ♦ XC + DB 

314 0164 34766717076 UBUS DL BNDT SF3 JLUl SF3, CK E>*DL IF NPRV 

315 * 

316 • 

317 • AC5S,D IS THE ADDR COMPUTATION ROUTINE FOR STD. 

318 # IF ENTERED AT ACSS SBUS*SM- RBUS«PADD+ ( XC*2 IF NOT INDR). 

319 * IF ENTERED AT AC50 SBUS*DB+ OR Q+- RBUS*PADD+ < XC*2 IF NOT INDR) 

320 » INSTEAD OF SR+UBUS, 

321 # EXIT WITH SPO-E, F1.UNDF, F3 IF InDR, 

322 * BUSOPS USE DB-BNK TO SPECIFY DB OR S-BNK FOR DB OR Q,S REL ADDRS, 



PA0E 7 


ADDRESS CONTENTS 


IAB L 


323 






ft 


334 


0165 


37777777777 


ACS* 


325 


0166 


16337777761 


AC5 n 


336 


0167 


34766717776 




387 


0170 


37177777575 




329 


0171 


23767117355 




«•« WARNING 


(16) *ft» BOUNDS TEST 


WITH pi 


329 


0172 


Ib3067f4i41 




330 






« 


331 


0173 


37337592767 




332 


0174 


377623*0272 




333 


0175 


2*2777777775 




334 


0176 


26337777776 




335 


0177 


34766717076 




336 






» 


337 






ft 


339 






» 


339 






# 


340 


0200 


377622»173? 


STD 


341 


0201 


23767617455 




»«« WARNING 


(16) ftftft BOUNDS TEST 


WITH p 


342 


0202 


ib306774141 




343 






ft 


344 


0203 


37176777555 




345 


0204 


33177547457 




346 


0205 


377663602H 




347 


0206 


37762360272 




34B 


0207 


37307157774 




349 


0210 


30077777777 




350 






ft 


351 






« 


35? 






♦> 


353 






ft 


354 






» 


355 


0211 


37722201732 


STOp 


356 


0212 


23767117455 




»•« WARNING 


(16) ft#ft BOUNDS TFST 


WITH pi 


357 


0213 


16306774141 




35B 






« 


359 


0214 


37177647555 




360 


0215 


3317776/457 




361 


0216 


33177777437 




362 


0217 


377623&0272 




363 


0220 


37766130645 




364 


0221 


36077767573 


STRp 


365 






ft 


366 






ft 


367 






ft 


369 






» 


369 






ft 


370 






ft 


371 






« 


372 






ft 


373 


0222 


37337777777 


ALSq 


374 


0223 


16317777761 





LAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2J05 PM 



ADO 
SR UBUS ADD SPO 
UBUS DL BNDT 
SPO ADD BUS 
SPO SM CAD 
RZ,RLZ»LRZ,LLZ DOES A CAD 
SR UBUS BNDT RR7. SP1 



JLUl 
ROD 
CLI8 NCRV 



CTF 



XC 

SPO DB 
UBUS OPND 
UBUS DU 



ADD 
JSB 
ADD 
ADD 
BNOT 



SLl SPO 
TSCK 

SPO 



SR<E-SM, 

MF1 

UNC 



S REL ENTSy 

DB,Q REL ENTRY 

E>«DL? DOME IF NOT INDR 

READ (E) 

CLIBI E>SM? 

VES» BNDV IF NPRV AND 

(SPUSM + SR-E) SR>«F-SM7 
SP0-XC*2 

CHECK TOS IF SM<E<*SM+5R 



S*3 JLUI 



E.(E)+XC*2+DP 
SF3, CK E>sDL 



IF NP*V 



STORE DOUBLE WORD 
DB,Q OR S PEL ADDRI ENTER WITH SPq«E, F3 IF INUR 



JSR PUL1 
SPO SM SUB 
RZ,RLZ,LRZ,LLZ DOES 
SR 



UBUS BNDT RRZ 



SPO 



SP1 



RA 



RD 



INC 
ADD 
JMP 
JSB 
CAD 
ADD 



STnR 
TSCK 



SRL3 FILL A TOS RLG IF NEC 

CF1 NCRV CF1I E+1>SM? 

CTF YESI BNDV IF NPHV AND 
SR<E+1-Sm, (SP1.SM+SR-E-1) SR>*E+1-SM? 

WRD STORE (S) IN 
DPOP Fl MEM AT E + l, S-S-l 

UNC JMP IF E+l NOT IN TOS RFGS 

UNC CHECK FOR E + l IN TOS REGS 

SP1 NFl ADJUST SP1 FOR POP 

MREG STORE IF E+l IN TOS REGS 



A CAD 
SP1 

BUS 
BUS 



STOR 
DB,Q OR S REL ADDRI ENTER WITH SP0«E, F3 IF INCP. 
PSTA AND STB EXIT THPOUGH STRg IF STORING IN TOS, 



JSB PUU SP2 
SPO SM CAD 
RZ,RLZ,LRZ,LL2 DOES A CAD 
SR UBUS BNDT RRZ SPl 



SPO 



RA 



RA 

RA 



ADD 
ADD 
ADD 
JSB 
JMP 
SP2 ADD 



BUS 
BUS 
BUS 



TSCK 
DEL 



SRZ 

CF1 NCRY 

CTF 

SR<£-SM, 
WRD Fl 
DPOP NEXT 
DATA 

UNC 

NFl 



SP2.0J FILL 
CF1I t>SM? 



A TOS IF NEC 



MREG POP NEXT 



YESI- BNDV IF NP«V AND 
(SP1.SM+SR-E) SR>«E-SM? 
STORE IN *t* 

S.S-1, HOME IF NOT IN TOS 
E COULD BE IN TOS REGS 
CHECK FOR E IN TOS REGS 
POP STK IF NOT IN TOS REGS 
ELSfc STORE IN TOS, POP STK 



ALSB IS THE ADDR COMPUTATION ROUTINE FOR LDB ANO STB, 

ENTERED WITH S6USaDB+, SM- OR Q+- RBUS*PADD+ ( XC/2 IF NOT INDR), 

EXIT WITH SP0*E, OPNn.(E), Ep IE pH BYTE, 

Fl SET AND SPUSM + SR-E IF E IS IN THL TOS REGS, 
BUSOPS USE DB-BNK TO SPECIFY DB OR S-BNK FOR DB 0« Q,S REL ADDRS, 



SR 



ADD 
UBUS ADD 



SPO 
SPl 



SP0„E ASSUMING UB,Q 
SPl-E IF S REL 



PA9E 



ADDRESS CONTENTS 



UAB L ' rbus SBUS FUNC SHFT stor SPEC SKIP 



COMMENTS 



FRI, AUG 13| lV b * 2, ° 5 PM 



3T5 
376 

3T7 
378 
379 
380 
381 
382 
393 
3§4 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
4Q6 
407 
403 
409 
410 
411 
412 
413 
414 
415 
415 
417 
418 
419 
420 
421 
422 
423 
#«• WARNING 
«24 
425 
426 
427 
428 



0224 
0225 
0226 
0227 
0230 
0231 
0232 
0233 
0234 
0235 



0245 
0246 
024 7 
0250 
0251 
0252 



00771047077 
013263&0226 
23307107155 
34767S07775 
3f7623C>0256 
14777547367 
37177777575 
37766240253 
00761620000 
16766010242 



ALSj 



0236 377622*1737 

0237 37777567777 

0240 262177»0017 

0241 262177^4017. 



0242 267375*1777 

0243 267377?4777 

0244 33762201738 



16677S&4777 
336777/"5777 
37766140221 
37177777555 
3&1777t>7453 
37777777777 





CIR 


ROMI 






7077 


NSMC 




SP1 


JMP 


*+l 


SPO 




UNC 


SPO 


SM 


CAO 




SP1 


CTF 


CRRV 


SPO 


OL 


SUB 
JSB 


ALS3 






CRRV 
UNC 


xc 


CTRL 


ADO 






LSF 


Fl 


SPO 




ADO 
JMP 


ALS? 


BUS 


ROD 


INDR 




CIR 


ROMN 






020000 




UBUS 


JMP 


STB 






NZRr 



« 
« 
ft 
ft 
LDB 



LD8 
ENTER WITH OPND"(E)t F2 IF RH BYTE 





JSB 


pshm 


SR4 




ADD 




F2 


OPND 


ADD 


URZ PUSH CCB 


NEXT 


OPND 


ADD 


RRZ PUSH CCB 


NEXT 



SPO-E IF S REL (2C JMP) 

SPl.E-SM-ll SF1 IF E>SM 

E>*DL? 

JSB IF E>SM OR E<DL 

SF2 IF RH BYTEj 

READ E IF NOT IN TOS 
JMP IF INDR 

JMP IF STB 



EMPTY A TOS REG IF NEC 

TOS.LH BYTE, CCb, DONE 
TOS.RH BYTE, CCb, OONE 



STB 
ENTER WITH SPOsE, OPnD=(E), F2 IF RH BYTE, 
Fl SET AND SP1«SM*SR-E IF E IS IN TOS REGS. 



0253 267777 '3067 

0254 22337777356 

0255 26346360226 

0256 01307117761 

0257 3^766140272 

0260 037777?7617 

0261 03767407416 

0262 22777707457 

0263 34767*17456 

0264 22767507762 

0265 37777707775 

0266 16331700000 

0267 23767117776 
(16) ftftft BOUNUS TEST 

0270 16306S04141 

0271 34766707775 



STB 




OPND 


ADD ■ 


LLZ 


SP2 




F2 






OPND 


ADD 


RRZ 


SP2 






« 




RA 


JSB 


PUL1 






SRZ 


ft 




UBUS 


ADD 


RRZ 


RA 




F2 






RA 


ADD 
JMP 


RLZ 
STP2 


RA 




Fl 




SPO 




ADO 




BUS 


WRD 






RA 


SP2 


ADD 
ADD 




BUS 


DPOP 


NEXT 


« 
















ALSp 


XC 


OPND 


ADD 


SRl 




SF3 






uaus 


DB 


ADD 




SPO 


CLIB 








OPND 


JMP 


ALS1 


CTRL 




UNC 


ft 

ALS3 


SR 


SP1 
RBR 


CAD 

JMP 
ADO 


TScK 


«?P1 


S 


NCRv 
Fl 




UBUS 


RBR 


SUB 






DB 


ZERO 






DB 


ADD 






CF1 


RSB 




UBUS 


DL 


SUB 






CF1 


NCRV 




z 


DB 


SUB 








CRRY 




SPO 




ADD 








RSB 






UBUS 


ROM 




SPO 


100000 




UBUS 


SM 


CAO 








NCRY 


ITH p 


RZ,RLZ,LRZ 


,LLZ 


DOES 


A CAD 








SR 


UBUS 


■ BNDT 


RRZ 


SP1 


CTF 


CRRY 


« 














SR<E 




SPO 


DL 


BNDT 








RSB 


ft 
• 


SM<E 


<«SM*SR| TEST FOR E 


IN TOS R EO 



SAVE ORIGINAL LH BYTE IF F?. 

ELSE SAVE ORIGINAL RH BYTE 

FILL A TOS REG IF NEC! 

STK WILL 8E POPPED SO EsS 
AND S»»0 DOES NOT MATTER, 

STORE IN RH OF E IF F2 

ELSE STORE IN LH OF E 

STORE IN TOS IF Fl 

STORE IN *EM 

SEND DATA, DONE 



INDRl SF3 

E*C <E)+XC]/2+DB, CLIB 

CTR(b).(ORG EM1S), CHECK E 

SP1_SM+SR-E| SR>«E-SM? 
YES, CK TOS IF E>SM 
SPLIT STACK IF S-BANK IS 

NOT THE SAME AS DB-BANK 
IF SPLIT STK CF1, RETURN 
CF1I 0B>sDL7 
Z>*UB? 

NOI SPLIT STK, RETURN 
E*E+32K 
E>SM7 

YESI BNDV IF NPRV AND 
• SM, <SP1-SM4-SR-E) SR>«E-SM? 

NO» CK E>»DL IF NPRV, RET 



PA8E 9 


ADDRESS CONTENTS 


LAB t 


419 






» 


430 






• 


431 






» 


433 






« 


433 






# 


••« WARNING 


( 2) ««« RBR CONFLICTS 


WITH 


434 


0272 


03777747417 


TSCk 


435 


0273 


007730*3776 




ftftft WARNING 


( 2) ««« RBR CONFLICTS 


WIT M 


436 


0274 


03767417605 


TSCl 


437 


0275 


37177707623 




43B 


0276 


37777707457 




439 






# 


440 






ft 


441 






» 


442 






» 


443 






» 


444 


0277 


20771777777 


LDPr 


445 


0300 


16U7777364 




446 


0301 


36766637776 




44 7 


0303 


37762361737 




»•• WARNING 


(16) *»« BOUNOS TEST WITH pi 


448 


0303 


017666'4760 




449 


0304 


37762401737 




450 


0305 


0ill6777377 




451 


0306 


2t>7262^0150 




45g 






ft 


453 






ft 


454 






ft 


455 






ft 


456 






ft 


457 


0307 


3/7262&3H7 


PLSa 


459 


. 0310 


3/177777166 




459 


03U 


23767117766 




460 


0312 


16307377141 




461 


0313 


37762H0274 




462 


0314 


0S766030317 




463 


0315 


37762231737 




464 


0316 


26217757757 




465 






« 


466 


0317 


'377661*»0221 


PST/s 


467 


0320 


37762201732 




46B 


0321 


37177777146 




469 


032? 


3317776U57 




470 






ft 


471 






» 


472 






• 


473 






ft 


47* 






« 


475 






« 


476 






« 


477 


0323 


377662&3H7 


LSAa 


478 


0324 


00775123377 




479 


0325 


37766360335 




480 


0326 


37762221737 





LABt RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG I3 f 1^76, 2)05 PM 



ENTER AT TSCK TO CK ADDR MODE (IN ClR) AND IF DB REL OR F3 COMPARE 
DB-BNK WITH S-BNK. ENTER AT TSCl TO COMPARE PBJS WITH S-BNK. 

OPND„MREG IF E IN TOS REGS> ELSE cFlj 

IF ENTERED AT TSCK RETURN MAY BE A RANK1 RSB WITH OPNU..MREG. 



PREFETCH ON INSTR ENTRY 



DB 



F3 
BITR 



RBR ADO 
UBUS CIR IOR SRi 
PREFETCH ON INSTR ENTRY 
RBUS RBR SUB S NZRo 

MREG ADD BUS OPND RSB 
ADD CF1 RSB 



NF3 AND Q OR S REL > 

OR DB-BMKaS-BNK? 
YES, OPNO.(E) FROM TOS REGS 
ELSE CFl, (E) IN MEM 



LDPP, LDPN 
LOAD DOUBLE WORD AT P+N OR P-NI PADD * +-N 



P ROM 177777 

PADD UBUS ADD PSP1 ROP 

UBUS PB BNDT SRN4 

JSB PSHM UNO 
RZ»RLZ,LRZ,LLZ DOES A CAD 

PL SP1 HNOT RR7 SRL3 

JSB PSHM UNC 

SP1 INC HSP1 ROP 

OPND JMP LD02 SP2 SRN4 



P POINTS TO NIR 
E ■ P - 1 +- PADD 
CHECK E>sG>B IF NPRV 
EMPTY A TOS REG IF NEC 

CHECK PL>E IF NPRV 
EMPTY A TOS REG IF NEC 
READ (E+l) 
PUSH WOS, SET CC (2C JMP) 



PLDA/PSTA 
PADDbCIR(BIIS) 1 CHECK MADE FOR E IN TOS REGS 



JMP TRP6 SP2 NPRv 
X ADO BUS ROA 
X SM CAD NCRY 

SR UBUS CAD SPl CTF 

JSB TSCl Fl 

PADD JMP PSTA ODD 

JSB PSHM SR4 

OPND ADD PUSH CCA NEXT 

JMP STR2 Fl 

JSB PUH SRZ 

X ADD BUS WRA 

RA ADD BUS DPOP NEXT 



SP2.0I PL3A/PST« ARE P«V 

READ (X) 

X>SM? Y£SI SF1 IF SR>«sX-SM, 

SP1.SM+SR-X 
CK S-BNK»0 IF SM<X<sSM+SP 
JMP IF STORE 
EMPTY A TOS REG IF NEC 
TOS-<X) , CCA, DONE 

STORE IN TOS IF Fl 
FILL A TOS REG IF NEC 
STORE IN ^EM, 
S.S-1, DONE 



LSEA/LDEA/SSEA/SOEA 

LOAD SINGLE OR DOUBLE WORD FROM A»S ADDR. 
STORE SINGLE OR DOUBLE WORD AT ABS ADDRI DELETE DATA. 

ENTER WITH SR>s2> E<S) CANNOT POInT TO THE INSTR PARAMS ON THE TOS. 

JMP TRP6 NPRv/ LSEA,LOEA,SSEA,3DEA ARE PRV 

CIR CRS SRi LBF POS SF2 IF LDEm OR SDEA 
JMP LSftS UNC JMP IF SSEA OR SDEA 

JSB PShM SR4 EMPTY A TOS REG IF NEC 



P'AOE 10 



ADDRESS CONTENTS 



LABi RBUS SBUS FUND SHFT ?TOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2105 PM 



481 
482 
483 

484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
491 
496 
497 
499 
499 
500 
SOI 
302 
§03 
504 
505 
506 
507 
508 
S09 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
530 
531 
S22 
523 
524 
535 
536 
537 
538 
539 



0327 


33157677017 




0330 


3^763361737 




0331 


33177577177 




0332 


33176767177 




0333 


36217757757 




0334 


16726210150 




0335 


317632^1732 


LSAs 


0336 


16157567017 




0337 


37766360344 




0340 


3076223173? 




0341 


16157777017 




0343 


31176777157 




0343 


33177767457 




0344 


377633*1737 


LSA ft 


0345 


32177777157 




0346 


33177757457 





0347 
0350 
0351 
0353 
0353 
0354 
0355 
0356 
0357 



0360 
0361 
0363 
0363 
0364 
0365 
0366 
0367 



3 7 7316 
027774 
351777 
351777 
357777 
167622 
261776 
377623 
263177 



01000 
17777 
67173 
67164 
77566 
»3U7 
37176 
61737 
57757 



37731601000 
02777417777 
35177767173 
35177767164 
35777777566 
16766263U7 
26177777156 
33177757457 



ft 
# 
LST 



ft 

« 
» 

# 

ft 
ft 
SST 



ABS-BANK_(S-1> 

EXACTLY ? TOS REGS FILLED 

READ ( <S-1> » <S> ) 

LDEA» READ ( <S-1> , (S)+l) 

LSEAj TOS.DATA, CCA, DONE 

LDEA| PUSH, SET CC (2C JMP) 

FILL A TOS REG IF NEC 
ABS-3ANK„(S-2> 

AND JMP IF SSEA 
ELSE FILL 4 TOS REGS 

AND ABS-BANK. (S-3) 
(ABS-BNK, (S-2)+i)_(S) 

S-S-l 
EXACTLY 3 TOS REGS FILLED 
(ABS-BNK, (S-l) >-(S) , 

S W S-1, DONE 



LST 
LOAD FROM SYSTEM TABLES 

IF KbO THEN (S).(X+lOOO+( (SI+10001 > ELSE TOS. ( X+l 000+ (K+1000 ) ) 
ENTER WITH SR>«1, PADD*K*CIR ( 12 J 15 ) I NO CHECK FOR E IN TOS REGS 



RB 


ADD 




SBR 


ABS 


S«L3 




JSB 


PSHM 






UNO 


RA 


ADD 




BUS 


ROA 


NF2 


RA 


INC 




BUS 


ROA 


UNC 


OPND 


ADD 




PUSH 


CCA 


NEXT 


UBUS 


JMP 


LDD2 


SP2 




SRNZ 


RC 


JSB 


PUL1 






SHL3 


UBUS 


ADD 




SBR 


ABS 


F2 




JMP 


LSA6 






UNC 


RD 


JSB 


PUL1 






SRN-Ct 


UBUS 


ADD 




SBR 


ABS 




RC 


INC 




BUS 


wRA 




RA 


ADD 




BUS 


DPOP 


UNC 




JSB 


PSHM 






SR4 


RB 


ADD 




BUS 


WRA 




RA 


ADD 




BUS 


DPOP 


NEXT 



ROM 
PADD ADO 
RA SP? ADD 
PADD SP2 ADD 
X SP2 ADD 
UBUS JSB 
UBUS OPND ADD 



SP2 

BUS 
BUS 



001000 

NZRO 



ROA 
ROA 
POP 



TRP6 



JSB PSHM 



OPND ADO 



UNC 
UNC 

NPRv 
SRN<* 
UNC 
PUSH CCA NEXT 



BUS ROA 



SP2-1000 

IF Kso HEAD < (SJ+1000) 
ELSE READ (K+1000) 
URUS«X+1000I IF KsO S-S-l 
LST IS PRV 
READ (X+.-1000 + OPND) 
EMPTY A TOS REG IF NEC 
PUSH DATA, CCA, DONE 



SST 
STORE INTO SYSTEM TABLES 

IF KsO THEN { X+1000+ ( ( S ) +1 000 ) ) - < S-l ) , 5.S-2 
ELSE (X-f 1000XK4-1000) )„(S) , S.S-1 
ENTER WITH SR>s2, PA0D*K«CIR ( 12 » 15 > I NO CHECK FOR E IN TOS REGS 



ROM 
PADD ADD 
SP2 ADD 

ADD 

SP2 ADD 

UBUS JMP 

UaUS OPND ADD 

RA ADD 



RA 

PADO SP2 

X 



TRP6 



SP3 


ooiooo 






NZRO 


BUS 


ROA 


UNC 


BUS 


ROA 
POP 


UNC 
NPRV 


BUS 


WRA 




BUS 


DPOP 


NEXT 



SP3-1000 

IF K = READ ( ISI+IOOO) 
ELSE READ (K+10-00) 
UBUS„X+1000I IF KsO S.S-1 
SST IS PRV 

WRITE AT (X+1000+OPND) 
WRITE (S), S.S-i, DONE 



PAOE U 


ADDRESS CONTENTS 


LAB 


930 






& 


531 






ft 


538 






» 


533 






• 


534 






» 


535 






» 


536 






* 


537 






» 


53B 






« 


539 






ft 


540 






♦ 


541 






» 


549 






» 


543 






* 


54* 






« 


545 






* 


546 






ft 


547 






« 


54B 






» 


549 






ft 


550 






» 


551 






ft 


552 






ft 


553 






ft 


35a 






« 


555 






ft 


556 






» 


557 






ft 


55B 






» 


559 






ft 


560 






» 


561 






ft 


562 






» 


563 






« 


564 






ft 


565 






ft 


566 






ft 


567 






» 


568 






ft 


569 






8,04 


570 


0400 


37777777777 


BRS 


571 


0401 


10337647761 


BRO 


578 


040? 


00766366422 




373 


0403 


37177777575 




574 


0404 


2J767117775 




»«« WARNING 


(16) #«ft SOUNDS TEST 


WITH 


375 


0405 


1630650*141 




576 






« 


377 


0406 


3*766767775 




578 


0407 


377623*0272 




579 


0410 


36317777767 




580 


0411 


377663&Q43? 




551 






» 


see 


0413 


37777777777 


BRP 



UABt_ RBUS SBUS FUNC SHFT STOR SPEC SKIP 



SECTOR 1 



COMMENTS 



FRI, AUG 13, 1*76, 2J05 PM 



BRANCH INSTRS1 RR/BCC» BOV , BNOV, BCY , BNCY, IXBZ, 
OXBZ , IABZ, DABZ, BRE , BRO , CPRB 

LOOP CONTROL BRANCH INSTRSI TBA/MTBA/TBx/MTBX 

IMMEDIATE INSTRfil CMPI, CMPN, DIVI 

STACKOPSI INCX, DECX, INCA, QECA, INCB, DECBI 
DTST, NOP | 

XAX , XBX , XCH , nXCH, CABl 
LOXA, AOXA, STAX, AOAX, 
LDXB, ADXB, STBX, aDBX| 
ADD . SUB , NE6 , CMP | 
DAOO, DSUB, DNEG, DCMP, ZR08J 
LCMP, DDEL, DEL , DELB, 
LAdD, LSUB, NOT , LMPY, LDIVI 
MPV , MPYL, OIV , DlVL 
(OR,XOR,AND ARE IN SECTOR 0» 
FP STACK0PS,TEST,BT5T ARE IN SECTOR d) 

MEM REF INSTRJ MPYM 

IMMEDIATE INSTRSI MPyl, LDI , LDNI, LDXI, LDXN, ADXI, 
SBXI, ORI , XOPI, ANDl, ADDI , SUBI 

STACKOPSI DUP , DDUPl 

DZRO, ZERO, ZROX 

BR/BCC 
BR S REL ENTERS AT BPS WITH SBUSaP+- RBUSsPAOD. 
BR DB OR Q REL ENTER AT BRO WITH S8US*D8+ OR Q+- RBUS»PADD, 
BR P REL ENTERS AT BRP WITH SBUS«P+- RBUS«PADD+ < XC IF NOT INDR). 
BUSOPS USE D8-BNK TO SPECIFY DB OR S-BNK FOR Db OR Q,S REL ADDRS. 
BCC ENTERS AT BRS OR BRD WITH PADD" + -CXR ( 1 1 I lb) AND EXITS TO BCC1 
ALL CONDITIONAL BRANCHES USE BCC2 TO BRANCHJ BR D8,U,S USE BCC4, 



00 

ADO 
SR UBUS ADD SPO 

CIR JMP BCC1 
SPO ADD PUS ROD 
SPO SM CAD 
«?RZ,RLZ,LRZ,LLZ DOES A CAD 

SR UBUS BNOT RRZ SPl CTF 



SPO DL 



XC 



PB 



BNDT 

JSB TSCK 

ADD 

JMP BCC4 

AOD 



SPl 



INDR 
UNC 

NCRv 

CRRY 
SR<F-SM, 
UNC 
UNC 

UNC 



S REL ENTRY 
D8,Q REL ENTRY 
JMP IF BCC INSTR 
READ INDR ADOR * (E) 
E>SM? 

YES! BNDV IF NPRV AND 
<SPl-5M-fSR-E) SR>eE-SM7 
NOI CHECK E>*DL IF NPRV 
SM<t<*SM+SR> CHECK TOS 
SEND (Ea(E)+XC+PB) 

TO NIR, CHECK BOUNDS 

NOTE P POINTS TO NIR 



PA9E 12 


AODRESS CONTENTS 


383 


0413 


37107377276 


58* 


0416 


16764777760 


585 


0415 


36764647774 


566 


0416 


37416?St774 


S8T 


0417 


01777777347 


38B 


0420 


26117777316 


589 


0421 


167663&0414 


590 






591 


0422 


27763417776 


598 


0423 


377777b7777 


593 






994 


0424 


20771777776 


595 


0425 


16117547264 


596 






597 


0426 


003713*377? 


598 


0427 


01764777760 


599 


0430 


36764737774 


600 


0431 


01416757777 


601 






602 


043? 


26117777314 


603 


0433 


37346360427 


604 






60S 






606 






607 






60!) 






609 


0434 


243713^3777 


610 


0435 


37777777637 


611 


0436 


377663J0424 


613 


0437 


37777757777 


613 






614 


0440 


24761604000 


615 


0441 


16766000424 


616 


0442 


37777767637 


617 






61B 


0443 


24777453537 


619 


0444 


37766360424 


620 






621 


0445 


24767033537 


622 


0446 


37766360424 


623 


0447 


37777757777 


624 






62 5 


0450 


37554417766 


626 


0451 


37766360424 


627 


0452 


37777757777 


628 






629 


0453 


37545017766 


630 


0454 


37766360424 


631 


0455 


37777757777 


632 






633 






63* 






635 






636 






637 


0456 


33674417777 



LAB L HBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13t 1976, 2105 PM 



SEND <E) TO OPNO AND NIR 

CHECK PL>*E 

CHECK E>aPB| INDR? 

NO| POINT P TO E + l,. OONE 

YESI CLI8, E„E+(E)+XC 

SEND <E) TO NIR 

CHECK QOUMDSt SET P 

BCCI CIR{719) AND CC » 
YESt NEXT 



P POINTS TO NIR+1 
SEND (E) TO OPNO AND NIR 
NHI8IT CIR<4) TEST 

CTR-77 IF CIR(4)*1 (INDR) 
CHECK PL>*E 
SPl PB UBNT CTRM CHECK E>sPB? INDR? 

SP1 INC P NEXT NOJ POINT P TO E+l, DONE 





U8US 




CAD 






PSP1 


RONP 


BRP-* 


PL 


UBUS 


UBNT 












SPl 


PB 


UBNT 








INDR 




SPl 




INC 






P 


NEXT 




XC 


SPl 


ADD 








CLIB 




UBUS 


OPND 


ADD 






BSP1 


RNP 






UBUS 


JMP 


BRP? 




UNC 


BCCi 


UBUS 


CC 


AND 








NZRO 


« 
BCC* 






ADD 








NEXT 




P 


ROM 








177776 




PADD 


UBUS 


ADD 






RSP1 


RONP Fl 


« 


ENTER WITH Fl < 


SET 


AND CTR N07 77 T 






CIR 


ROMI 






CTRH 


173777 


BCC? 


PL 


SPl 


UBNT 











BCC4 SPl 



OPND ADD 
JMP 



(JSP1 RNP 
BCC» CTRL 



UNC 



# 
# 

» 
BOV 



# 
BNO-/ 



* 
BNCy 



BCY 



IXB T 



» 

dxb* 



« 

« 
# 

iab 7 



BOV, BNOV, BCY, BNCY, IXBZt DXBZ 
PADD b DISPLACEMENT x +-CI«lllll5| 



STA 


ROMI 


C7RH 


173777 




ADD 




CLO 






JMP 


BCC2 




CTRm 




ADD 






NEXT 


STA 


ROMN 




004000 


UBUS 


JMP 


Bcca 




ZERO 




ADD 




CLO 


NEXT 


STA 


ADD 


SRi 


CCRY 


BITft 




JMP 


BCC2 




UNC 


STA 


CAD 


SRI 


CCRY 


BIT* 




JMP 


BCC2 




UNC 




ADD 






NEXT 




INCO 


X 




NZRn 




JMP 


BCC2 




UNC 




ADO 






NEXT 




CADO 


X 




NZRO 




JMP 


BCC2 




UNC 




ADD 






NEXT 



YESI E.E+CE) , (£) TO NIR 
CTR-OI CK BOUNDS, SET P 



CTR. 77 IF STA(4)=1 
CLEAR OVFL 

BRANCH IF 0VFL»STA«4) 
WAS SET, ELSE NEXT 

MASK Oh/FL BIT * STA<«») 
bRANCH IF ZEWO 
ELSE CLO, NEXT 

CCRYI BRANCH IF CRY*STA(5) 
WAS IVOT SET ELSE FALL TMR 
BCY, WAITING FOR PREFETCH 

CCRY 

BRANCH IF CRY*STA{5) 
WAS SET, ELSE NEXT 

X.X+1, CCA,OVFL» ZERO? 
YES, BRANCH 
ELSE NEXT 

X.X-1, CCA,OVFL» ZERO? 
YESt BRANCH 
ELSE NEXT 



IABZ, DABZ, BRE, BRO 
ENTER WITH SR>«1, PADD « DISPLACEMENT « +-CIR(ll»15] 



RA 



INCO 



RA 



NZRO 



(S).(S)+lt CCA,OVFL| ZERO? 



PA9E 13 


ADDRESS CONTENTS 


638 


0457 


377663O0424 


639 


0460 


37777757777 


640 






641 


0461 


37665017773 


642 


0462 


37766360424 


643 


0463 


37777757777 


64* 






645 


0464 


3377743 7577 


646 


0465 


37766360424 


647 


0466 


37777757777 


648 






649 


0467 


33777427577 


650 


0470 


37766360424 


651 


0471 


37777757777 


652 






653 






65* 






655 ■ 






656 






657 






658 


047? 


33767077566 


659 


0473 


16767377777 


660 


0474 


16777537577 


661 


0475 


37777757706 


662 


0476 


16767077730 


663 


0477 


16767377777 


664 


050n 


167661J0424 


665 


0501 


37777757677 


666 






667 






668 






669 






670 






671 






672 






673 






67* 


0502 


37762201732 


675 


0503 


37762231733 


676 


0504 


00761604000 


677 


0505 


16766000523 


678 


0506 


3*317647766 


679 


0507 


37317767466 


680 


0510 


3*557477766 


681 


0511 


3r/66l»0520 


682 


0512 


3*777777317 


683 


0513 


01311700000 


684 


0514 


33737547765 


665 


0515 


01767767 156 


686 


0516 


36767777154 


687 


0517 


37346140424 


688 


0520 


37777577577 


689 


0521 


37777777577 


690 


0522 


37777757577 


691 






692 


0523 


3776227173? 



LABt RBUS SBOS FUNC SHFT STQR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2:05 PM 



DAB? RA 



BRE 



» 
BRO 



ft 
ft 
« 
ft 
ft 
ft 
CPR* 



« 
ft 
ft 
ft 

MT8t 



MTBp 



MTB< 



ft 
MT9* 



RA 



RA 



JMP 


BCC2 


ADD 




CADO 


RA 


JMP 


BCC2 


ADO 




ADD 




JMP 


ecca 


ADD 




ADD 




JMP 


BCC? 


ADO 





POP 



UNC 

NEXT 

NZRO 

UNC 

NEXT 

ODD 
UNC 
NEXT 



POP EVEN 
U r *C 

NEXT 



YESt BRANCH 
ELSE NEXT 

(S)-(S)-1, CCA,OVFL| ZERO? 
YES, BRANCH 
ELSE NEXT 

S.S-1 

BRANCH IF (S) WAS fcVEN 

ELSE NEXT 

S.S-1 

BRANCH IF (S) WAS ODD 

ELSE NEXT 



CPRB 
BRANCH IF (SIGNED) ( $-1 )<eX<a < S) 
ENTEP WITH SR>«2, PAOD * ♦-ClR(UjlS)- 



X 
RO 



RA CAD 

JBUS CAD 

UBUS ADD 

ADD 

UBUS CAD 

UBUS CAD 

UBUS JMP 

ADD 



POP nofl 



bcc<? 



POP 
CCQ 
CCE 



CCL 



NEG 

NEXT 
NOFL 

NEG 
NEXT 



TEST UPPER BOUNOI IF SAME 
SIGN CCG IF X>UPPER bOUNO 
ELSE CCG IF X POS 
(S.S-2, RB NOW IN WD) 

TEST LOWER BOUND: IF SAME 
SIGN CCL IE LOWER BOLND>X 
ELSE CCL IF LOWER -BOUND 
POS, ELSE BRANCH 



TBA, MTBA, T9X, MTBX 
TEST AND BRANCH, /5NO MODIFY, TEST AND BRANCH iNSTWS, 
(SJ»LIMIT» (S-i>=STEP SIZE? <S»2)=0b REL ADO» OF TEST 

VARIABLE, OR X*TESY VARIABLE, 
ENTRY IS VIA A MEM REF LUT ENTRYl PADOs+-N <CIR<8*15)). 

FILL 2 TOS REGS IF NEC 



JMP IF TBA OR MTBA 

SP1 „ X + STEP SIZE 

ELSE IF TBX, SP1.X 

MTHXf X „ X + STEP SIZE 

TERM LOOP IF OVFL AND MTBX 

SF1 IF STEP NEG 

CONVERT VAR TO LOGICAL 

CONVERT LIMIT TO LOGICAL 

STEP POSI LIMIT>SVAR? 

STEP NEQI VAR>sLIMIT? 

YES, BRANCH JCTH-Oi Fl SET) 

S_S-3 IF TBA OR MTBA «F2) 
S.S-2 IF TBX OR MTBX <NF<?) 

TBA, MT8A 







JSB 


RUL1 






s«z 






JSB 


PUL1 






SWL? 




CIR 


ROMN 






004000 




UBUS 


JMP 


MTH6 






ZERO 


K 


RB 


ADO 




SP1 




INDR 


X 




ADO 




SP1 


SF1 


UNC 


X 


RB 
RB 


AOD 
JMP 
ADD 


MT*4 


X 


HBF 


NOFL 
NF1 




SP1 


ROM 




SP1 


100000 


RBUS 


RA 


ADD 




SP2 




Fl 


UBUS 


SP1 


SUB 






CTF 


UNC 


SP1 


SP2 


SUP 






CTF 








JMP 


BCC2 


CTRL 




Fl 






ADO 






POP 


NF2 






ADD 






POP 








ADD 






POP 


NEXT 






JSB 


PUL1 






SRL'l 



P«SE 14 


ADDRESS CONTENTS 


LA8 L 


RBUS 


SBUS FUNC SHFT 


STOR 


SPEC 


SKIP 


693 


0524 


377622*1737 






JSR PShM 






SR4 


694 


0525 


23337777357 






SM ADO 


SPO 


CLIB 




695 


0526 


22117777571 




RC 


DB ADO 


OSP1 


ROO 




696 


0527 


16766777775 




SPO 


UBUS BNDT 








697 


0530 


34766777414 




SP1 


DL BNDT 




SF2 




696 


0531 


007774&3777 






CIR ADD SRi 






BIT* 


699 


0532 


26306360512 






OPND JMP MTB2 


SPl 




UNC 


700 


0533 


0il77777S57 






SP1 ADD 


BUS 


WRD 




T01 


0534 


26H7477432 




R5 


OPND ADD 


BSP1 


DATA 


NOFL 


7oa 


0535 


3^766360520 






JMP MTp4 






UNC 


703 


0536 


37766360512 






JMP MTB2 






UNC 


704 






• 












705 






» 












706 






» 




CMP I, CMPN 








707 






* 


ENTER WITH SR>*ll PADD*-i 


N FOR 


CMPj 


708 






* 












709 


0537 


02777477553 


CMPj 


RA 


PADD AOD 




POPA 


N0F L 


••• WARNING 


( 8) ••• TOS LOAD NAME 


IS oLD NAME BEFORE PRECEDING 


PUSH, 


POP 


Tie 


0540 


00773357753 




RA 


CIR IOR 




CCA 


NEXT 


711 


0541 


3777776f777 






ADD 






NEXT 


712 






ft 












713 






» 












714 






» 




DIVI 








71S 






» 


ENTER WITH SR>»1 








716 






• 












717 


0542 


02726003130 


DIV T 




PADD JMP TRP4 


SP2 




ZERO 


718 


0543 


33317527777 






RA ADD 


SPl 




POS 


719 


0544 


33307777777 






RA SUB 


SPi 






780 


0545 


37772577777 






H£PN 






21 


721 


0546 


357643J2276 




UBUS 


SP2 PVSB SLl 




INCT 


CTRm 


722 


0547 


33763137774 




SP1 


RA XOR 






NEG 


723 


0550 


01677737757 






SP1 ADO 


RA 


CCA 


NEXT 


724 


0551 


01667767757 






SP1 SUB 


f<A 


CCA 


NEXT 


725 






ft 












726 






« 












727 






» 




INCX, OECX 








728 






* 












729 


0552 


37554767766 


INCv 


X 


INCO 


X 




NEXT 


730 


0553 


37545367766 


DECx 


X 


CADO 


X 




NEXT 


731 






ft 












738 






* 












733 






» 




INCA, DECA 








734 






» 


ENTER WITH SR>*1 








735 






ft 












736 


0554 


33674767777 


INC/> 




RA INCO 


RA 




NEXT 


737 


055S 


37665367773 


DEC a 


RA 


CAOO 


RA 




NEXT 


738 






# 












739 






» 












740 






» 




INCB, DECB 








741 






» 


ENTER WITH SP>»2 








74 2 






• 












743 


0556 


32654757777 


INCn 




RB INCO 


RB 




NEXT 


744 


05S7 


37645367772 


DECB 


RB 


CADO 


PB 




NEXT 


74 5 






• 












746 






• 













COMMENTS 



FRI, AUG 13, 1*76, 2105 PM 



EXACTLY 3 TOS REGS FILLED 
SPO-SM, CLR MEM REF BNK FF 
E«RC + Df<, READ TEST VARs(E) 
CHECK SM>»E IF NPRV 
CHECK E>«DL 1^ NPRV 

JMP IF TBA 

MTBA| (E).(E)+RB 

TERMINATE LOOP IF OVFL 
TEST FOR COMPLETION 



CMPj, PAOD«N FOR CMPN (CIR(8I15)) 

CCA ON (S)-N 
INCN 

REVERSE: CCL, CCG IF OVFL 
(CIR>0 SO NO CCE IF OvFL> 



DIVIDE BY ZERO 
SPl-ABS(IJ) 



IF SI ON U * SIGN W 

THEN (S)-W, CCA, DONE 
ELSE (S) . -N, CCA, DOiME 



X-X+U CCA, OVFL 
X.X-1J CCA, OVFL 



<S)_(S)+1I CCA, OVFL 
(S)«.(S)-1J CCA, OVFL 



(S-1).(S-1)*1I 
(S-l).(S-D-ll 



CCA, OVFL 
CCA, OVFL 



PA3E 15 



ADDRESS CONTENTS 



LAB, RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2105 PM 



7*7 
7*9 
749 
750 
751 
75? 
753 
754 
755 
756 
757 
759 
759 
760 
761 
763 
763 
76* 
765 
766 
767 
768 
769 
770 
771 
772 
773 
77* 
775 
776 
777 
77 8 
779 
780 
781 
78g 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 



0560 32/77447777 

0561 327631*7533 

0562 37777777517 

0563 32777*07757 

0564 37777757777 

0565 337777576b7 



056A 33b57777777 

0567 376777*774* 

0570 32557777777 

0571 3'6577b7766 

057? 33657777777 

0573 326777b7757 



0574 37777777257 

0575 37777777257 

0576 3 77663O0563 



0577 
0600 



30637777237 
312177S7757 



DTST, MOP 
ENTER WITH SR>s2 FOP OTST, 
VARIOUS iNSTRS WITH DOUBLE WORD RESULTS tXlT THROUGH 

DTST AND DCCA TO SFT CC, AND S/C CRRY IF DTST. 
VARIOUS OTHER INSTRS EXIT THROUGH MOP # 



OTSt 




SB 


ADD 




RA 


RB 


y.OR 

A DD 


DCC* 




RB 


ADD 


» 








MOP 






ADD 


ft 












RA 


ADD 



NSME 
CCRY POS 
SCRY 
CCA ZERO 

NEXT 

CCZ NEXT 



CLEA* CARRY IF 

HlbH ORDER 17 lilTS 

ARE ALL ZEROS OR ALL ONES 
CCA ON (S-l> 



IF <b-l ) sZLWO, 
THEN cr.Z ON <b> 



XAX, XBX, XCH 
ENTfcR WITH SR>«1 FOP XAX, SR>»2 FOR XBX AND XCH 



XAX 




RA 


ADD 




X 




ADD 


» 








XbX 




Rb 


ADD 




X 




ADD 


XCH 




RA 


ADD 






RB 


ADD 


e 








» 








« 




DXCH 




« 


ENTER WITH SR»4 


o 








OXCm 






ADO 
ADD 
JMP DCCA 



V 






PA 


CCA 


NEXT 


V 






RB 




NEXT 


P» 






3 A 


CCA 


NEXT 



INCN 
INCN 



l)NC 



*_<b) 

(S)-X, CCA, NEXT 

X_<S-1> 
<S-1).X, NEXT 

(S-l ) _ (S) 

(S)-(S-l ) , CCA, NEXT 



EXCHANGE 

(S~1),(S) AND (S-J),(S-2) 
SET CC ON (S-l ) » (S) 



CAB 
ENTfcR WITH SR>s3 

NET RESULT! RD UNCHANGED, «A„RC» RB.RA, RC-R6 
PERFORMED AS FOLLOWS: RC..RO, SR»Sr?-l 

THEN RA.RC, RB.RA, RC-HB, RD.RC, Sk.SR+1 



CAB 

ft 
ft 



RD 
RC 



ADD 
ADO 



PC DCSR 
PUSH CCA NtXT 



ADUUbT SR« RC.RO 
T0S»RC, CCA, NEXT 



LDXA, ADXAi STAx, ADAX 
ENTER WITH SP>sl FOR ALL EXCEPT LDXA 



796 
797 
798 
799 
800 
801 



0601 
0602 



37762221737 
372177b7746 



0603 3J6757a7766 

0604 33557737557 



ft 
LOXr, 

» 

ADX, 

STAx 



RA 
RA 



USB PSHM SR4 

ADD PUSH CCA NEXT 



ADDO 
ADD 



PA 

X 



NEXT 
POPA NEXT 



EMPTY A TOS REG IF NEC 
TOS-X, CCA, NEXT 

(S).(S)+Xt CCA,OVFL 
X„«S> , CCA, S-S-l 



PA3E 16 



ADDRESS CONTENTS 



LAB| RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2»0* RM 



ao2 

803 
804 
005 
806 
807 
808 
809 
810 

an 

818 
813 

81* 
815 
816 

817 
813 
819 
820 
821 
•«« WARNING 

822 
823 
824 
325 
825 
827 
82B 
829 
330 
831 
832 
333 
83* 
835 
836 
837 
S3S 
839 
8*Q 
8*1 
8*2 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
8S3 
854 
855 



0605 335557*7566 



0606 37657757746 

0607 3*6557*7766 

0610 3*5577*7757 

0611 335557*7766 



0612 336557*757? 

0613 33645737572 

0614 33665767777 

0615 33767477552 

( 8) •#• TOS LOAD NAME 

0616 0077335755? 

0617 377777*^577 



062(1 
0621 
0622 
0623 

0624 
0625 
0626 
0627 

0630 
0631 
0632 
0633 

0634 
0635 
0636 
0637 
0640 
0641 



3367751723T 
32654767230 
3*655777230 
37 766360563 

33667517231 
32645767230 
32645377230 
37766360563 

33667517777 
32645767777 
32645377777 
377663O0563 

3*767477050 
007733*7750 
32767417750 
33767517651 
376577*7777 
37777737677 



ADAy 


X 


RA AODO 


Y 


# 




LDXB, ADXBi 


ST8X, 




LDXn 


ENTER WITH SR>»2 




X 


ADO 


RB 


ADX.H 


X 


RB AODO 


RB 


STBv 




RB ADD 


X 


ADBx 


X 


RB APOO 


X 



POP NEXT 



ADBX 



CCA 



CCA 



NEXT 
NEXT 
NEXT 
NEXT 



« 

ADD 
SUB 
NEG 

* 

CMP 

IS 



ADD, SUB, NEO, CMP 
ENTER WITH SR>sl FOR MEG, 



fcLSE SR>s2 



RB 
RB 



RA 
PA 
RA 



ADDO 
SUBO 
SU80 



RB 
RB 
RA 



RB RA SUB 

pLD NAME BEFORE 

RB CIR IOR 

AOO 



PRECEDING 



POP 
POP 



POPA 
PUSH, 
POPfl 
POP 



NEXT 
NEXT 
NEXT 

NOF|_ 
POP OR 
NEXT 
NEXT 



X_(S)+X| CCA.OVFLJ S W S-1 



(S-l).X, CCA 
(S-i)„(S-l)+XJ CCA,OVFL 
X«.(S-l), CCA 
X„(S-1)+X| CCA,OVFL 



(S-l)_<S~l)+(S) , S„S-1 
(S-1)-(S-1)-(S> , S.S-1 
(S) - -<S> I CCA, OVFL 



CCA ON (S-l)-(S) 
INCN 

REVERSE CCL 
(CIR>0 SO 



CCG IF OVFL 
NO CCE IF OVFL) 



« 

# 
ft 

DADr 



DSiJR 



DNEn 



DCMr 
DCMfl 

ZROr, 



OADD, DSUB, DNFG, DC"P, ZROB 
ENTER WITH SR>«2 FOR ONEG AND ZROB, 
FCMP EXITS THROUGH 0CM2 | ZROB USES 



ELSE SR*4. 
A FREE LINE 



IN DCMP. 



RC 
HD 
RD 



RC 

RD 

RD 



RO 
RD 
RD 
RC 



RA 
RB 
RB 



RA 

RB 
RB 



RA 
RB 
RB 



RB 
CIR 
RB 
RA 



ADD 

IMCO 

rtpDO 

J*p 

SUB 
SUBO 
CAOO 
JMP 

SUB 
SUBO 
CADO 
JMP 

SUB 
IOR 
SUB 
SUB 
ADD 
ADD 



DCCA 



DCCA 



DCCA 



PA 


OCSR 


NCRy 


PB 


DCSR 


UNC 


RB 


DCSP 


UNC 


RA 


DCSR 


NCRy 


RB 


DCSR 


UNC 


RB 


DCSR 


UNC 


RA 




NCRv 


PB 




UNC 


RB 




UNC 




clsr 


NOF L 




CCA 


NEXT 




CCA 


NZRO 




ccz 


NCRY 


OB 




NEXT 




CCL 


NEXT 



(S).(S-2) + <S) 

(S-l )_(S-3)+(S-l) +1 IF C«RY 
ELSE (S-l ) _<b-3) + (S-l ) 
(S-2),(S-3) UELtTEOj SET CO 

(S)_(S-2)-(S) 
(S-l)«(S-3)-(S-l) IF CRRY 
ELSE (S-l)_(S-3)-(S-l)-l 
(S-2),(S-3» DELETED! SET CC 

(S).-(S) 

(S-l). -(S-l) IF CRRY 
ELSE (S-1)_-(S-1)-1 
SET CC 

CLSRI IF OVFL CCA ON (S-3), 

(CIR>0 SO NO CCE) DONE 
CCA ON (S-3)-(S-l)» ZERO? 
YES, CCZ IF (S-2)>»(S) 

ZROB 



RB«0 
ELSE 



FOR 
CCL 



LCMP, DDEL, DEL, DELS 
ENTER WITH SR>=1 FOR DEL, ELSE SR>s2. 
STOR MAY EXIT THROUGH DELI MOVE INSTRS 



MAY EXIT THROUGH DDEL, 



PAGE 17 


ADDRESS CONTENTS 


856 






857 


0643 


33767530765? 


856 


0643 


37777777677 


859 






660 


0644 


37777/77577 


861 


0645 


377777&T577 


863 






863 


0646 


33657757577 


864 






865 






866 






867 






86B 






869 


0647 


336577671b? 


870 


0650 


33647777153 


87X 


0651 


16777bb75S7 


872 


0653 


377777&7517 


873 


0653 


37777737537 


874 






875 


065* 


336673b7757 


676 






877 






878 






879 






880 






881 


065S 


37537777533 


863 


0656 


37773607777 


883 


0657 


1677433337? 


884 


0660 


1 7657<»07757 


885 


0661 


336777S7517 


886 


066? 


3S6777&7657 


887 






88? 






889 






890 






891 






893 


0663 


32317777577 


»«« WARNING 


( 6) *»« TOS LOAD i 


693 


0664 


337660U3130 


894 


0665 


3076751763? 


895 


0666 


33302360674 


696 


0667 


3*773577437 


897 


0670 


30764J32376 


89B 


0671 


376775?3765 


899 


0673 


16671700000 


900 


0673 


01657757757 


901 






903 






903 






904 






905 






906 


0674 


37773577617 


907 


0675 


30764333376 


908 


0676 


376575/3765 


909 


0677 


16651700000 



LAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP COMMENTS FRI, AUO 13 f 1*76, 3J05 PM 

LCM« RB RA SUB CCZ CRRV CCZ IF <S-1)>*(S) 

ADD CCL ELSE CCL 

« 

DDE| ADO POP S..S-1 

DEL ADD POP NEXT S.S-i, NEXT 

» 

DEL* RA ADD RB POP NEXT (S-D.(S)i S.S-I, NEXT 

• LADD, LSUB, NOT 

• ENTER WTH SR>aJ FOR NOT, ELSE SR>«? 

LADr RB RA ADO RB CTF UNC ( S-l ) _ < S-l > ♦ ( S ) , F1=CRRY 

LSU« RB RA SU8 KB CTF ( S-l ) - ( S-l > - ( S ) , F1=CRWY 

UBUS ADD POPA NFl CCA ON (S-l), S.S-1 

ADD SCRY NEXT SCRY IF Fl 

ADD CCRY NEXT ELSE CCRV IF NFl 

(S) m 1 »S COMPL (S) t CCA 



SP3- <S) , CCRv 

(S)*<S-1) 

(S-D.MSW, CCA, ZERO? 
N'OI (S)„LSW, SCHY, DONE 
ELSE (S).LSW, CCZ, DON*. 



NOT 


RA CAD 


PA 


CCA 


NEXT 


ft 


LMPY 








» 


ENTER WITH SR>«3 








LMP V 


RA ADD 
REPN 


SP3 


CCRv 


30 




RB UBUS MPAD SRj. 




INCT 


CTRm 




SBUS ADD 


RB 


CCA 


ZtRn 




SP3 ADO 


RA 


SCRY 


NEXT 




SP3 A[>n 


RA 


CCZ 


NtXT 



* LDIV 

» ENTER WITH SR>a3, RC,RB»U RAasVI W«U/V 

# 
LDIyy 



RB 


ADD 


SPl 


POP 




SP1.LSU, S.S-1 


D NAME BEFORE PRECEDING 


PUSH, 


POP OR 


INCN 


RA 


JMP TRa<» 






ZERO 


INTEGER DIV HY ZERO 


RB RD 


SUB 




CLO 


NCRY 


OVFL IF MSU>=V 


RB 


USB LDV3 


SP1 




UNC 


YESJ JMP,' SP1-MSU 


RB 


REPN 




CF3 


31 


CF3 


UBUS RD 


DVSB SLl 




INCT 


CTRM 


MSU,USU/V 


RBUS 


apQ SRi 


RA 




NFP 


<S>-REMAIMDER 


UBUS 


ROM 


PA 


100000 


RESTORE HIGH BIT FROM F? 


SP1 


ADD 


RB 


CCA 


NEXT 


(S-D.W, CCA, DONE 



OVFL: MSU„(G,MSU) MOD V, RESULTING IN QUOTIENT MOUJLO 3<><H6 
AND CORRECT REMAINDER UPOM COMPLETION OF LOlV, 
SPlsMSUl NEW MSU RETURNED IN RB, 5PI.LSU. 

SOV 

0,MSU/V 

MSU^REMAI^DER 

RESTORE HIGH BIT FROM F? 



LDV-, 




REPN 




SOV 31 




UBUS RD 


DVSB SLl 




INCT CTRM 




RBUS 


ADD SR\ 


RB 


NFS 




UBUS 


ROM 


PR 


100OOP 



PA8E ia 



ADDRESS CONTENTS 



LAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13t 1*76, 210* PM 



910 

911 

912 

913 

914 

915 

916 

917 

913 

919 

920 

921 

923 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

93B 

93 9 

940 

941 

942 

943 

944 

945 

946 

947 

94B 
• «ft WARNING 

949 

950 

951 

952 

953 

954 

953 

956 

957 

958 

959 
•»« WARNING 
««» WARNING 

960 

961 



0700 33317707777 



PA 



ADD 



SP1 



PSB 



SP1-LSU, RETURN 



0701 
0702 
0703 
0704 
0705 

0706 
0707 
071O 
07H 
071? 
0713 
0714 
0715 
0716 
0717 
0720 



0721 
072? 
0723 

0724 
0725 
( 8) ft 
0726 
0727 
0730 
0731 

073? 
0733 
0734 



02177777637 
37762221737 
2O20220173? 
3/777777417 
33537777317 

37772607637 
1677433327? 
176575&7777 
3264777777A 
17777527777 
3364777777? 
2b666l '0560 
32777447777 
33763127772 
37777777617 
336577b7557 



«« 



32317S27777 
32307777777 
3732636073? 

32317777777 
33657777577 
> TOS LOAD f 
313261*073? 
16327377777 
01307bl7777 
3 7336777775 

33767537777 
16666003130 
3376337731? 



« 

» 

MPY T 
MPYm 

MPY 

MPYi 



MPYI, MPYM, MPV, MPYL 

ENTER WITH SR>«1 AND PADD » N * ClR(8ll5) FOw MPYI 

ENTER WITH OPNO*(E> FOR MPYM 

ENTER WITH SR>*2 FOP MPY ANO MPYL 



ft 
DIV 



0IV ( 





PADO 


ADD 
JSB 


PSHM 


BUS 


OPND 


SR4 




OPND 


JS9 
ADD 


PUL1 


PUSH 


SF2 


SRZ 




PA 


Ann 

«EPN 




SP3 


HBF 
CLO 


20 


RB 


UBUS 


MP AD 


SRI 




INCT 


CTRm 




SBUS 


ADD 




RB 




NFl 


UBUS 


RB 

SBUS 


SUP 

Aon 




RB 




POS 


RB 


PA 


SUB 




RB 








SP3 


JMP 


DTST 


RA 




NF? 




PB 


ADO 








NSMfr 


RB 


PA 


*OR 
ADD 






SOV 


POS 




PA 


ADO 




RB 


POPA 


NEXT 



OPNP.N IF Mpyl (ELSE 

OPND»(E))| INSURE 1<»SR<4 
TOS.OPNO, PROCESS LIKE MPV 
SF2 IF MPV, MPYI OR MPYM 
FI.SIQM OF (S) 

CLO 

<S)»(S-1) 

RB-MSW 

IF (S) NEG W_W-2»*16(S-1) 

IF (S-l) NJEG W„w-2«#16(S) 
HA_LSW, J*P IF MPYL 
ELSE SOV IF HIGH 17 

BITS ARE NOT THE SAME 

DELETE MSWt CCn ON LSW 



DIV, OIVL 
FOR DIV ENTER WITH S.7>*2, PBsU RAsV| 
RC,P8«U RA«V, S-S-1J FOR BOTH (S-l). 



SPO»SPl m ABS(U) , OfTL »S-l) IF 



DVL 



SPO 



PB 



PB 


Aon 


SP1 


PB 


SUB 


<:pj 




JMP 


DVL2 SPO 


RB 


ADD 


S"l 


PA 


Ann 


PB 


IE BEFORE 


PRECEDING 


PC 


JMP 


DVL? SPO 


UBUS 


CAD 


SPO 


SP1 


SUB 


SP1 




INC 


SPO 


RA 


SUB 




UBUS 


JMP 


TRP4 RA 


RA 


XOR 





POP 



DIVL, 
POS 
UNC 



POS 



NCPV 



NEG 
ZERO 



HBF 



FOR DIVL ENTEP WITH SP>s3, 
U/Vsw, (S)_RE^AlNOE«t. 

»Fl IF SGN u <> SGN V, V_Aa*i(V) 

SP1.ABS (U) 

SPO-ZEPOs^SU 

SP1.LSU 

SPO-MSU, DELETE (S-l)sLSU, 
I INCN 

JMP IF U "OS 

ELSE SP0,SP1_ABS<U> 



V.ABS(V) 

JMP IF INTEGER U I V BY ZFRO 

SF1 IF SON U <> ORG SGN V 



(S-l >„SPO,SPl/kA*u/V f (S) .REMAINDEPt CHECK SIGNS, OVFL 



( 3> « 

(18) ft 

0735 

0736 



•ft RBUS MAY BE FORCEr ON FOLLOWING LINE 
«« UBUS ON RpUS OR Sl'l MISSING FROM DVSp. 
33764112615 SPO RA DVSB SLl 

3777775777* UBUS ADD 



SOV 



NCRV 

NEXT 



FIRST CIV SUB, SOV 
DONE IF MSU>»V 
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ADORESS CONTENTS 


962 


0737 


37772607776 


963 


07*0 


3376*332276 


964 


07*1 


37677553765 


965 


07*3 


01307777777 


966 


07*3 


33763127772 


967 


07** 


33667777777 


•«• WARNING 


(12) ••• ZEROiNZRO, 


968 


07*5 


01777*07337 


969 


07*6 


01763137776 


970 


07*7 


37777777637 


971 


0750 


01657757757 


978 






973 






97* 






975 






976 






977 


0751 


37762221737 


978 


0752 


02217757757 


979 






980 






981 






98S 






983 






98* 


0753 


02557757777 


985 


075* 


025577377*6 


986 






987 






988 






989 






990 






991 


0755 


336733577*4 


992 


0756 


3366335/7** 


993 


0757 


336637577** 


99* 






995 






996 






997 






998 






999 


0760 


33675757764 


1000 






1001 






100S 






1003 






100* 






1005 


0761 


3/762221737 


1006 


0762 


33217757757 


1O07 






1008 


0763 


32722221737 


1009 


076* 


33177677637 


1010 


0765 


37762301737 


1011 


0766 


377663&0150 


1012 






1013 






101* 






1015 







UAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13i l*7b, 2J06 PM 



UBUS REPN 
UBUS RA OVSB SLl 
RBUS ADD SRl RA 

SP1 SUB SP1 
RB RA XOR 

RA SUB RA 
NSME SK T P TESTS MADE ON T-BUS 

SP1 ADD 

UBUS SP1 XOR 

ADD 

SPl Apo CB 



20 

INCT CTRM 
NF 1 

POS 



FHB ZERO 
NtO 

rLO 

CCA NtXT 



« 

* 

LDI 



LDIf LDNl 
PADD ■ *-N « CIR(8I15) 



LDXI, LOXN, ADXJ, SBxI 
PADD ■ + -N m ClR<9J 15) 



PADD ADD 
PADD ADD 



NEXT 
CCA NEXT 



FINISH DIVIDE 

(S)-REMAINDEW 
W„ -w IF S6N U <> SGN V 
IF SON U <> SGN HEM 
THEN (S)» -REM 

CLO IF W = ZE.RO OH 

SGN fc*(SGN U XOR SGN V) 

IS-l)„w, CCA» DONE 



JSB PSHM SR4 

PADD ADD , PUSH CCA NEXT 

« 

* 

LDXt 
ADXt X 

# 

* OR I, XOR I, AND I 

* ENTER WITH SR>«1, PADD = M = ClR(8ll5) 
« 

OR! PADD RA IOR RA CCA NEXT 

XORt PADD RA XOR "A CCA NEXT 

ANDj PADD RA AND RA CCA NEXT 

« 

* ADDI, SUBI 

w ENTER WITH SR>sl, P<\DD ■ +-N a ClR(8|15) 



EMPTY A TOS hEtt IF NEC 
TOS .. + -N t CCA 



X _ + -N 

X m X +-N» CCA 



(S).(S) OR N, CCA 
(S)-(S) XOR N, CCA 
(S).(S) AMD N, CCA 



RA 



NEXT 



ADD? PADD RA ADDO 

# 

» DUPi DDUP 

» ENTER WITH SR>*1 FOR OIJP, SR> = 2 FOR DDUP 

# 

JS3 PSHM SRA 

ADD PUSH CCA NEXT 



(S) « (S> ♦-'■■!> CCAfOVFL 



DUP 



* 
DDUp 



RA 

RB 

RA 



JSB PSmm SP2 SR* 

ADD BUS OPND SRl .'* 

JSB PSMM UNC 

JMP LDD? UNC 



tMPTY 4 TOS REG IF NEC 
TOS.(S) , CCA, NEXT 

EMPTY A TOS REG IF NEC 
SPa.OPND_(S-l) , <S) 
EMPTY a TOS REG IF NEC 
TOS-SPP,OPND, SET CC 



ZERO, DZRO» ZPOX 
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ADDRESS CONTENTS 


LA8J' 


1016 


0767 


377662 '0772 


DZRr« 


1017 


0770 


37762221737 




1018 


0771 


377623&1737 




1019 


077a 


37206350774 


DZR? 


1020 


0773 


37762221737 


ZERr, 


ioai 


077* 


372177S7777 


ZER-, 


1022 






» 


1023 


0775 


375577S7777 


ZRO, 



LA8J' RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



JMP 


DZ*? 


JS8 


PSHM 


JSB 


PSHM 


JMP 


ZEPS PUSH 


JSB 


PSHM 


Ann 


PUSH 



Ann 



SRL3 

SR4 

UNC 

UNC 

SR4 

NEXT 

NEXT 



FRI, AUG 13, i»76, 2;06 PM 



MAKE AT LEAST 
2 TOS EMPTY 
TOS-0 

EMPTY A TOS REG IF NEC 
TOS-0, NEXT 

X.O, NEXT 
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ADDRESS CONTENTS 


LAB L 


102* 






fc 


1085 






ft 


1026 






ft 


1027 






» 


1028 






» 


1029 






« 


1030 






» 


1031 






e 


1032 






« 


1033 






» 


1034 






ft 


1035 






# 


1036 






# 


103T 






# 


1038 






» 


1039 






U0o 


10*0 


1000 


32651700000 


FSUp 


1041 


1001 


30321677777 


FADp 


1042 






* 


1043 






» 


1044 






ft 


1045 


1002 


32303777625 




1046 


1003 


16767417155 




1047 


1004 


33767777151 




1048 


1005 


33733157774 




1049 


1006 


305263t>1011 




1050 


1007 


31733377255 




ftftft WARNING 


( 8) #»• TOS LOAD NAME 


IS | 


1051 


1010 


32537777257 




1052 


1011 


36766001171 


FADi 


1053 






« 


105* 






ft 


1055 






ft 


1056 


1012 


3*763377310 


UNP* 


1057 


1013 


30721677700 




1058 


1014 


32303777765 




1059 


1015 


30601600077 




1060 


1016 


32643777765 




1061 


1017 


30611600100 




1062 


1020 


32657707765 




1063 






ft 


1064 






ft 


1065 






ft 


1066 


1021 


36367377774 




1067 


102? 


16771523100 




106B 


1023 


377663*1171 




1069 


1024 


25777547317 




1070 


1025 


33526461031 




1071 


1026 


33527517777 




1072 


1027 


32647767777 




1073 


1030 


32647377777 




1074 


1031 


35331637600 


FAD/, 


1075 


1032 


37317777777 




1076 


1033 


32772337277 





LAB L R8US SBUS FUNC SHFT STOR SPEC SKIP 



SECTOR 2 



COMMENTS 



FRIi AUG 13| 1976, 2106 PM 



FP INSTRSi FADD, FSUB, FMPY, FDlV» FNEG, 
FCMP, FLT , DFLT, FIXR, FIXT 

SHIFT INSTRSj ASL , LSL , CSl, , ASR , LSR , CSR , 
DflSL, DtSLi OCSLt DASP, DLSR, OCSH, 
TASLi TASR, TNSLi QASL/QASR 

STACKOPSJ TEST, BTST 



FADD, FSUBi FMPv, FDIV 
ENTER WITH SR«4i RDiRCsU RB f RA«V| ( S-3) , ( S-2 ) „W « U (OP) V, S-S-3 



RB 
RD 



ROM 
ROMN 



RB 100000 
SPO 077777 



COMPL SIGN Of- V IK FSUB 
SPO-ABS(MSU) 



EXCHANGE U AND V IF NECESSARY SO THAT ABS(U) >* ABS(V) 



RBUS RB AND 
SPO UBUS SUd 
RC RA SUB 
SP1 RA I0R 



«?Pl CLO 

CTF NZRo 

CTF 
SP2 NFl 



SPl.ABS(MSV) , CLO 
SF1 IF ABS(MSU)>sABS(MSV) 
IF EQUAL Fl IF LSU>«LSV 
SP2*0 IF ABS(V>sOj JMp, 
RD JMP FADI SP3 UNC SP3„MSU IF ABa < U ) > = ABS ( V ) 

SPO RC IOR SP2 INCN SP2«0 IF ABS(U)=Q, 

IS LD NAME BEFORE PRECEDING PUSH, POP OR INCN 

RB ADD SP3 INCN SP3.MSV. EXCHANGE U AND V 

SP2 JMP UANS ZERO **U IF A8S(V)=0 

UNPACK U INTO SP2,RD,RC, V INTO SPl.RB.RA, SF 1 IF SIGNS OIFFEHbNT 

RD RB XOR H8F 

RD ROMN SP2 077700 

RBUS RB AND SP1 

RD ROMN RD 000077 

RBUS RB AND RB 

RD ROM RD 000100 

RBUS RB ADD RB RSB 



SFl IF SIGNS DIFFERENT 

SP2-EXPU 

SP1.EXPV 

DELETE SIGN, EXP FRUM MSlJ 

OELETE SIGN, EXP FROM MSV 

SET LEADING ONE IN MSU 

AND IN MSV, RETURN IF JS« 



W.U IF EXPU-EXPV>»»4 ELSE ALIGN V WITH Ui ADD INTO RB,SP3,SPl 

CTRH 



SP1 SP2 CAD 
UBUS ROM 

JMP UANS 
SP3 ADD 



3100 POS 
UNC 

HbF Fl 
UNC 
NCRv 
UNC 



RA JMP FAD4 gP3 

RA SUB SP3 

RB SUB RB 

RB CAD RB 

SP2 POM SPO 037600 

ADD SP1 

RB REPC INCT CTRm 



CTR.EXPV-EXPU-1 

DIFF>?^7 (ABS(U>>aABS( V) ) 

YESi WsU 

Fl.SIGN OP UsSIGN OF W 

JMP,SP3.LSV IF U,V SAME SGN 

ELSE SP3_ -LSV 

IF CRRY MSV. -MSV 

ELSE MSV. -MSV-1 
EXPW.EXPU*254 (FOR PACK) 
SP1-GUARD BITS-0 IF EXPU«V 
EXPONENTS EQUAL? NO| ALIGN 
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ADDRESS CONTENTS 


LAB, 


1077 


1034 


37640733276 




1073 


1035 


2&537517231 




1079 


1036 


32776777777 




1080 


1037 


16657417230 




1081 


1040 


2b6660Ui200 




ioea 






* 


1063 









1064 






e 


1065 






« 


1066 


1041 


32772067777 


NORm 


1067 


1042 


166400*2277 




1088 






# 


1089 









1090 






» 


1091 






« 


1092 


1043 


25536517777 




1093 


1044 


32656777777 




••• WARNING i 


( 4) 000 S60S MAY RE 


FORCEr) 


109<» 


1045 


376405&3716 




1095 


1046 


37777777677 




1096 


1047 


15767777775 




1097 


1050 


1677174 200 




1098 


105K 


32657777336 




1099 






a 


1100 









1101 


1052 


17675022305 




nca 









1103 


1053 


2b6663»1056 




110* 


1054 


25773007473 




1105 


1055 


25677767777 




110§ 


1056 


37526153132 


FOV 


1107 


1057 


2b666J»3l3l 




1109 









1109 






« 


1110 






« 


1111 









1113 









1U3 


1060 


31533007630 


FMPy 


ill* 


1061 


3353301^772 




1115 


1062 


376263«>il7l 




1116 


1063 


315223O1012 




1117 









1118 


1064 


35337777774 




1119 









1120 









1121 









112? 









1123 






* 


1124 






« 


1125 






« 


1125 









1127 









1120 









1129 









1130 










LAB) RBUS SBUS FUNC SHFT STOR SPEC SKIP 



UBUS OASR SRl PB INCT CTRM 

RC SP3 ADD SP3 DCSR NCRy 

RB INC 

RD UBUS ADO RB OCSR NZRO 

SP3 JMP FNQ2 RA ZERO 



COMMENTS 



FRI, AUG 13i 1«76, 2106 PM 



V WITH JJ SR Rb,SP3|SPl 
DCSR, SP3.LSU+LSV 

OCSR <«2), RB.MSU+MSV+CRRY 
JMPt RA„0 IF W»RB,SP3=0 



NORMAL EXIT FOR F4DD , FSUB, FMPY , FDl V , F|_T , DFLT . 
NORMALIZE PB,SP3,SP1 TO MSW<8)| SmIFT CNT ADDED TO CTR, 



RB REPC 

UBUS OASL SLl PB 



BIT* NORMALIZED TO MSw(8)? 
INCT BITR NO! SL RB,SP3,SPl UNTIL BT8 



ROUND AND PACK NORMALIZED Wsrb,SP3 INTO RB,RA» TEST FOR UN/OVFL. 
SR>*2, SPOsEXP + 256-2, CTR*OELTA E*P FRM NORMALIZATION, Fi IF w NF.G. 



SP3 INC SP3 
RB INC RB 

ON FOLLOWING LINE 

UBUS UASR SRi RB 
ADO 

SPO CTRH SU« 
UBUS ROM 

UBUS RB ADO 



RBUS SBUS CRS SLl 



PB 

RA 
RA 



SP3 JMP FOy 
RA SP3 IOR 

SP3 ADO RA 

JMP TRPg cP3 
SP3 JMP TRP3 RA 



NCRv 



CCG NFl 
COL 

140200 

FHB 



HBF EVEN 

UNC 
SF1 ZERO 
NEXT 
NFl 
UNC 



FMPY 
CHECK FOR ZERO, UNPACK U AND V 



RD 
RB 



RC 
RA 

RC 



IOR 
IOR 
JMP 
JSB 



SP1 SP2 ADD 



SP3 
SP3 
UANS RC 
UNPK SP3 

«;po 



CLO 



ZERO 
NZRo 
UNC 
UNC 



ROUND LSW 

INCR MSW IF CRRY 

SRI W«R8,SP3 AFTER ROUNDING 
CCG IF MF1 ELSE CCL 

LXP«EXP-NORM SHFT CNT-2S6+2 

HB-MSW+EXP, SET SIGN, 
+1 TO EXP FROM NORM, POSS- 
IBLY +1 MORF FKOM ROUNDING 

HA_CSL { ABS(MSW-t-EXP) ) , 
SFl IF JNFL 

JMP, RA.LSW IF UN/OVFL 

UNFL IF A3S(w)*0 

ELSE RA.LSW, DONE 

SP3-0J OVFL IF NFl (2C JMP) 

KLSE RA„LSW, UNDERFLOW 



CLO 

IF U OR V*0» SP3,RC„W=0 

CLSR, PJSH W, SET CCt 
SP3_LSU| UNPACK U AND V 

SFl (w NtG) IF SIGNS DIFF 
SP0.EXPV"fEXPU»EXPW + 2S6 



MPY MSU.LSU MSV f LSV * SUM OF THE. FOUR PARTIAL PRODUCTS 
SHOWN BELOW, IN GENFRAL SUM OF PREVIOUS PARTIAL PRODUCTS 
ADDED <AS INTERMEDIATE PRODUCT) ImTO MPAO CALCULATING THE NEXT 
PARTIAL PRODUCT. THIS IS DONE IN SUCH A WAY THAT, AND SINCE 
MSU AND MSV ARE 7 BITS, OVERFLOW BEYOND AND BETWEEN THE 8 AND 16 
BIT ENTITIES USED TO HOLD THE SUM OF PARTIAL PRODUCTS CANNOT OCCUR, 
AND MSW IS <■ 6 BITS. 

MSI MSI LSI LSI LSU0LSV 
+ MS2 MS2 LS2 MSV»LSU 

+ MS3 MS3 LS3 MSU#LSV 



PA9E 33 



ADDRESS CONTENTS 



UAB L WBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2106 PM 



131 
132 
133 
13* 
135 
136 
137 

,138 
139 
1*0 
141 
142 
143 
144 
143 
146 

,147 

148 
149 
130 
151 
132 
153 
15* 
155 
156 
157 
159 
159 
160 
161 
163 
163 
16* 
163 
166 
167 
169 
169 

,170 
171 
178 
173 
17* 
175 
176 
177 
178 
179 

,180 
161 
188 
183 
18* 
185 



1065 


37772607777 




1066 


1677*333273 




1067 


1/737777777 




1070 


32537777777 




1071 


3b772707777 




107g 


1677*333271 




1073 


1T317777777 




107* 


30537777777 




1075 


2*772700777 




1076 


1077*333273 




1077 


1/73777777* 




1100 


2*317777777 




110.1 


305377*7777 




1102 


3*772700777 




1103 


1677433327? 




no* 


17657777777 




1105 


3*7777 '*237 




1106 


26537777236 




1107 


377663«>10*1 





1110 

uu 

1112 
1113 
111* 
1115 
1116 
1117 
1121 
1121 
1122 
1123 



316333 
327730 
3/7663 
2b7660 
335377 
377623 
336777 
2S6577 
367716 
013277 
313177 
317777 



77630 
17053 
&il6ft 
01171 
U777 
61012 
'5217 
"/6212 
77500 
77776 
/5777 
a 777 



RA 



RC 



RA 
SP1 



RB 



♦ MS* LS* 

* MSW LSW LSW 

REPN 
UBUS MPAD SRl 
SBUS ADD 
RB ADt3 
SP2 REPN 
UBUS MPAD SRl 
SBUS ADD 
RD ADD 
SP3 REPN LRZ 
UBUS MPAD SRl 
SBUS *r>o 
SP3 ADD 
RD ADO 
SP2 REPN LRZ 



M«5U»MSV 
<G«GUAWD BITS) 



UBUS MPAD SRl 
SBUS ADD 
SP2 ADD RRZ 
UBUS SP3 ADO 

JMP NORM 



SP2 

<?P3 



SP1 
SP3 



SP2 
SP1 
SP3 



»B 



SP3 



20 
INCT CTRM 



10 
INCT CTRM 



10 
INCT CTRM 



10 

INCT CTRm 

OCSR 
DCSR 

UNC 



PlsLSUftLSV 
SP2,SP3 . PI 
SP3-MSV <BITS<0»8> 



ARE 0) 



P2«MSV«LSU4SR8 { MSP I ) 
SPliSP3<0»7> - PB 
SP3-MSU <3ITS(0»B) ARF OJ 
SR8(LSP2) 

P3sMSU*LSV+SR16(LSP2) + MSP2 
SP2-MSP3sSPl+MSP? 
SP1 (057).tSP3aW GUARD BITS 
SP3-MSU (BXTS(OIB) ARE 0) 
ALIGN LH MSP3 WITH MSU , V 

P<»bMSU»MSV*SR8(LH MSP3) 
RB( 10-11 ! 15>_MSP*sMSW 
SP3-.LSWJ LH LSW*LSP<» 

sSP3(0J7), RH LSWsRH MSP3 
NORMALIZE, RND AND PACK 



SR«2 SP0sEXP*25fi RB, SP3 , SP1«W/* CTRsQ, «* OF 8 BITS IN SP1 REQ 



FDIV 
CHECK FOR ZERO, UNPACK U AND V 



FDIv/ 



RD 
RA 



RC 
RB 

SP3 
RA 



RA 

SP3 

SP2 

UBUS SP1 
RC 
RC 



RB 



I OR 
I OR 
UMP 
JMP 
ADD 
JSB 

Aon 

ADD 
ROM 
SUB 
ADD 
ADD 



SP3 



FDZR 

UANS 

LL7 

UNPK 

RLZ 

SWAB mi 



SP3 



HA 



CLO 

CLSR NZRn 
UNC 
ZERO 

UNC 
INSR 
INSP 
077500 



RL7 
LLZ 



SPO 
SP1 



CLOI IF U=0 SP3,RC=QsW 

CLS«> VsO? 

YES, FP DIV BY ZERO 

IF U=0 W = 0, PUSH W, SET CCE 

LH SP3.LH LSV 

UNPACK U AND V, 

SF1 (W MEG) IF SIGNS DlFF 
SHIFT V LEFT 8, SR-2 
SPO-fc.XPU-EXPV+512-3 

sEXPW (BIASED +?.Sb) +25b-3 

SHIFT U LEFT B INTO SP2,SP1 



U * SP2,SP1 s 
V s RB.RA » 



lxx X X X X 
1XX X X X X 



XXX XOO 
XXX XOO 



CALC Ql * U/MSV CARRIED OUT U PLACES, 

Rl m REMAINDER - QH»LSV| IF »1<0 THEN Rl.Rl+V, Ql_*Jl-l. 

01 s 01X X X XXX 

OR 001 X X XXX 

Rl OX XX XXX X X yXX 

Q1«LSV 00 00 OXX X X yXX 

V IF ADD BACK 01 XX XXX X X xXX 



XXXX0O0O 
XXX XOO 



112* 
1125 



16732656770 
3276*3*2276 



RD UBUS REPN SWAB SP2 13 
UBUS RB DVSB SLl- INCT CTRM 



SP1-Q1*U/MSV 



PA3E 34 



ADDRESS CONTENTS 



UAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2»06 PM 



1186 
1187 
1168 
1189 
1190 
1191 
119g 
1193 
119* 
1198 
1196 
1197 
U98 
1199 

laoo 

1201 
1203 
1203 
120* 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
121* 
1215 
1216 
1217 
1219 
1219 
1220 
1221 
1228 
1223 
122* 
1235 
1236 
1227 
1228 
1239 
1230 
1231 
1233 
1233 
123* 
1235 
1236 
1237 
1238 
1239 
12*0 



1126 


376177^3765 


1127 


335377*0777 


1130 


37772707777 


1131 


1677*33327* 


1132 


17527377770 


1133 


25627*17777 


113* 


25536777777 


1135 


16777537777 


1136 


016063*11*3 


1137 


3760737777* 


11*0 


31637517773 


11*1 


25536767772 


11*2 


2b53777777P 



11*3 


31317777*37 


11** 


25772617777 


11*5 


3276*33227* 


11*6 


37657773765 


11*7 


3^531/7777* 


1150 


01637522777 


1151 


377663&H63 


1152 


33537770777 


1153 


37772707777 


1154 


1077*33327* 


1155 


176*737777? 


1156 


2b767*17777 


1157 


3^1656777777 


1160 


31537772777 


1161 


32777527777 


1162 


2b53l 777777 



1163 30772757777 
116* 3^6*073327* 
1165 377663&10*! 



1166 30217*17757 



» 

» 
» 
o 
FDV; 



ft 

ft 
ft 
ft 
FDVi 



FDZ- 



RBUS 



SP1 
RO 



SP1 
RA 
RB 
RB 



ADO SR\ 

ra add lrz 

REPN 
UBUS MPAD SRi 
SBUS CAD 
SP3 SUB 
SP3 INC 
UBUS ADD 
SP1 JMP 

CAD 
RC ADD 
SP3 INC 
SP3 ADD 



»0 
S»3 



SP3 

RC 
SP3 

FDV2 R0 
RD 
RC 
SP3 
SP3 



10 
INCT CTRm 

NZRo 

MEG 
UNC 

NCRY 
UNC 



RD.Rl 

(LH) SP3.LSV 

01*LSV 

SP3-MSR1«R1-MS(Q1»LSV)-1 

RC-LSR1 s -LS(Q1«LSV) 

IF LSRlsO THEN MSR1.MSR1+1 

RKO? 

N'OJ JMP, 3D..U1 

ELSE RD.Ql-1 

LSR1.LSV+LSR1 

IF CRRY MSHl.MSV+MSRl+l 
tLSE MSRl_MSV+MSRl 



Ql ■ RD ■ OxX X X XXX 

Rl * SP3,RC ■ OXXXXXXXXXX XOO U 

V « RB,RA « 01XXXXXXXXX XOO 

CALC Q2 a Rl/MSV CAnpIED OUT 15 PLACES! MS Q<? BT ALIGNS WITH LS Ql. 
IF MS Q2 (Y) s THEN R2 s RFMAlNOER - Q2#LSV, LEFT JUSTIFY 

LS 1* BITS OF Q2>, IF R2<0 THEN Q2.Q2-1 | 
ELSE Q2_1«S, RESULTING IN OVFL INTO Ql AFTER ROUNDING. 

Q2 ■ YXX XXX XXX 

R2 * OX XX X X X X 

Q2«LSV 



OP XX X X X X 
S» J 1 CF2 



XXX XOO 



RC ADD 

SP3 REPN 17 

UBUS RB DVSB SLl INCT CTRm 
RBUS ADD SRi RB 

ROM SP3 17777* 



SP1 Ano SLl RC 
JMP FDV.1 

RA AOO LR7 SP3 
REPN 
SP1 UBUS MPAD SRi 
RB SBUS CAD 

SP3 SUB 

RB INC 

RC ADD SLl 

RB ADO 

SP3 ROM 



e£i 



RB 
SP3 



POS 

UNC 

10 
INCT CTRm 

NZRO 



POS 
SP3 1 77777 



CF2 (SHOULD HE 0) , 
SPl.LSRl 

SPl-U2sRl/MSV 

RB_R<? 

OVFL TO Ql IF MS Q2=l, 
SP3_Q2*1»S (RNO WILL 
INCR 02 CARRYING INTO 01) 

(LH) SP3.LSV 

Q?*L5V 

RB.MSR?eP2-MS <Q2»LSV) -1 

LSR2 » -LS(U2»LSV) 

IF LSRgsO THEN MSR2..MSR2+1 

SP3 - (LEFT JUSTIFIED) Q2 

SP3(l*«15)sO, 

IF Rc'<0 Q2.Q2-1 



SHIFT Q1,Q2 RIGHT 3 INTO RB,SP3iSPl = W*2, 

RD«U1, SP3«Q2, SPo»ExP+256-3, cTRsO, FISSION, <si* MS Q2 BITS REQ. 



RD 



UBUS 



REPN 


03 


QASR SRi RC? 


INCT CTRm 


JMP NORM 


UNC 



SR3 Q1.Q2 INTO «B,SP3,SP1 
NORMALIZE, RND AND PAC«t 
<2 MS SPl BITS REG 



FP DIV BY ZEROj PUSH W»U, SET CC, JMp TO TRP5J OVFL,SR CLR 
RO AOD PUSH CCA NZRO PUSH MSw, SET CCA 



PAOE 25 


ADDRESS CONTENTS 


•«« WARNING I 


[ 8) «*• TOS LOAD I 


1241 


1167 


31777777657 


1242 


1170 


302063*3127 


1843 






1244 






1245 






1246 






1847 


1171 


257777'2057 


124B 


1172 


16213007771 


1849 


1173 


2b677777777 


1850 


1174 


30206810563 


1851 






125? 






1253 






1854 






185S 






1256 






•«« WARNING 


( 8) «»« TOS LOAD 1 


1257 


1175 


32651700000 


1259 


1176 


32773007773 


1259 


1177 


0077338^752 


1260 


1200 


37657757737 


1261 






1268 






1263 






1264 






1265 






1266 


1201 


32763127050 


1267 


1202 


00773357750 


1263 


1803 


307661*0636 


1269 


1204 


37777777257 


1270 


1205 


37777777257 


1271 


1206 


377663^0636 


1272 






1273 






127* 






1275 






12T6 






1877 






1278 


1207 


37331702400 


1279 


1210 


37762221737 


1260 


1211 


37217767777 


1281 


1212 


37331704400 


12«2 






1283 






1284 






1265 


1213 


32537417317 


1286 


1214 


33766001200 


1287 


1215 


37646151221 


1288 


1216 


33667517777 


1269 


1217 


25527767777 


1290 


1220 


25527377777 


1291 


1281 


333063*1041 


1292 






1293 







LAB L R8US SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRIi AUG 13» 1*76, 2J06 PM 



IS r,LD NAME BEFORE PRECEDING PUSH, POP 

rc Ann ccz 

RD JMP TRPS PUSH UNC 



ft ft C ft ft ft ft 

z 


UANS 
CLSR, 


USED 

» w„o 


BY FADD,FSUB,FMPY»FDIV A 
IF -0» PUSH W, SET CC» W 


RC 


SP3 
UBUS 
SP3 
RD 


ADD SUl CLSp 

I0R PUSH ZERO 

ADD RA 

JMP DCCA PUSH SRN7 



OR IN CM 

IF MSWao SET CC* ON LSw 
PUSH LSW, TRP5 

» EXIT IN CERTAIN CASES, 

• SP3.RC (NORMALLY U), OVFL CLR 

CLSR 

ABS(U)»07 YESi MSW.,0 

NOi MSW.MSU 

LSW-LSt.), SET CC <2C JMP) 



FNEG 
ENTER WITH SR>«2» RB,RA«V« 



V • -V, 



» FADD t FSUB,FLT»DFLT,FlXR,FlXT EXIT THROUGH FNG2 IF W*0. 

» 

IS oLD NAME BEFORE PRECEDING PjSH, POP OR INCN 

RB 100000 TOGGLE SI3N 

ZERO WAS * ZERO? 

CCA NEXT NO? SET CCA (CIR SO NO CCE) 

RB CCE NEXT YESI REPLACE MSVsQ. SET CCE 



FNEn 




RB ROM 




RA 


RB I OR 




RB 


CIR I OR 


FNG ;. 




ADO 


« 






« 






« 




FCMP 


« 


ENTER WITH SR 


* 






FCMo 


RO 


RB XOR 




RD 


CIR IOR 

RD JWP 

iOO 

ADD 
JMP 



ENTER WITH SR«4i BD,RC«U RB,PA«V| COMPARE U WITH V, 5>S-4 



DCM? 



DCM5 



CLSR POS 
CCA NEXT 

POS 
INCN 

INCN 

UNC 



CLSRj SAME SIGN? 

NOI CCA QM UfCIR SO NO CCE) 

YES» CMP U WITH V if POS 

ELSE SWAP U AND V 

TO CMP v WITH U 



« 

« 

• 
*» 

FLT 



FLT, DFLT 
ENTER WITH SR>«1 I 
ENTER WITH SR>s?» 



<S) ,TOS.FLOAT( (S> ) 

(S-1) , ( S) -FLOAT ( (S-l> , (S) ) 



ROM 
JSB 
ADD 
ROM 



SPO 



102400 
PSHM SR4 

PUSH UNC 
SPO 104^00 



DFLT 

ft 

» NORMALIZE, ROUND AND PACK 

« 



SPO-SNGLE EXP BASE FOR NORM 
EMPTY A TOS REG IF NEC 
PUSH LSWbO 
IF DFLT SPCDBL EXP BASE 





RB 


ADD 


SP3 


HBF 


NZRO 




RA 


JMp 


FNG2 




ZERn 






JMP 


DFL2 RB 




NFl 




RA 


SUB 


PA 




NCRy 




SP3 


SUB 


SP3 




UNC 




SP3 


CAD 


SP3 






DFL? 


RA 


JMP 


N05JM SPl 




UNC 


# 












# 













W = RB,SP3,SP1 _ 0,ABS(RB,RA) 



SP3-MS' , Fl_blGN 
JMP IF WbO (SET CCE) 
RB»0l JMP IF W POS 
ELSE LSW. -LSW 

IF CRRY MSW- -MSW 
ELSE MSw. -MSW-l 
SPl-LSWi MORM,RND,PACK 



PA9C 26 



ADDRESS CONTENTS 



LAB,' RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, l*7b, 2J06 PM 



129* 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
130* 
1305 
1306 
1307 
1308 
1309 
1310 
13U 
1312 
1313 
1314 
1315 
1316 
1317 
1319 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
133ft 
1335 
1336 
1337 
133B 
1339 
1340 
13*1 
13*2 
13*3 
13** 
13*5 
13*6 
13*7 
13*8 



1222 37777777*17 



1223 
122* 
1225 
1226 
1227 
1230 
1231 



1232 
1233 
123* 
1235 
1236 
1237 
12*0 
12*1 



1256 
1257 
1260 



32775777317 
33537777777 
32761600077 
16651600100 
32761677700 
16371735100 
167261212*7 



16771523000 
376663O1200 
32312337277 
37640733276 
01766121242 
3776616124? 
25536517777 
32656777777 



12*2 25666190560 

12*3 23667917777 

1244 32647767777 

1245 32647377777 

1246 377663t>0560 



16347377777 
33772337277 
16676333277 



« 
F1X T 

« 
FlXr^ 



FIXR, FIX7 
ENTER WITH SR>*2, R8,PA*Vt RB , RA_FIX ( v ) » ROUNDED OR TRUNCATED 

ADD SF2 SF2 IF FIXT 

SAVE SIGN, MASK ExP, DETERMINE WHICH DIRECTION TO ADJUST FRACTION 

H8F 



RB AOOO 
RA ADD 
RB ROMN 
UBUS ROM 
RB ROMN 
JBUS ROM 



SP3 
RB 



000077 
000100 
077700 
CTRH 135100 



JBUS JMP FIX* SP? POS 
EXP-256<23J ADJUST FRACTION RIGHT} CTR»ExP-256-23 



Fl.SISM CLO, CCRY 
SP3.LSV 

DELETE EXP FROM MSV 
AND AqD ASSUMED BIT 

EXP-256-23 

SHIFT LEFT IF EXP-i.'S,6> = ?3 



UBUS MOM 3000 POS 

JMP FNG? PA UNC 

RB KEPC SPl INCT CTRm 

UBUS QASR SRl RB INCT CTRm 

SP1 JMP FIX? POS 

JMP FIX? F2 

SP3 INC SP3 NCRV 

RB INC RB 



IF tXP-256 < -1 THEN 

JMP, (S) , (S-l>-0» SET CCE 
SR V«RU,SR3,SP1 (0:6) 

ABS(tXP-£56-22) BITS 
NO RND IF MS GUARD BITso 
NO RND IF FIXT INSTR 
ROUND LSW 
INCR MSW IF CWMV 



COMPLEMENT ANSw IF V NEG, SET/CLR CRRy, SET CC, 
RBbMSW, SP3sLSw, FlsSIGN V. 



FIX? 



SP3 JMP OTST ^A 

SP3 SUB WA 

RB SUG PB 

RB CAD PB 

JMP OTsT 



NFl 

NCRY 

UNC 

UNC 



hA.LSWJ JMP IF W POS 
RA_ -LSW 

IF CKRY MSW. -MSW 
ELSE MSW_ -MSW-1 







« 






• 






« 






4r 


1247 


39367377777 


FIX* 


1250 


16771521000 




1251 


37526003133 


TRIE 


1252 


32312377777 




1253 


16640332277 




1254 


37766361242 




125«5 


02777777767 


SHFq 



EXP-256>*23t ADJUST FRACTION LEFTt SP2*ExP-256-23 . 
VARIOUS INSTRS ENTER AT TRIE IF ImTEGER OVFL DETECTED, 



SP2 CAD CTRH 

UBUS ROM 1000 POS 

JMP TRPl SP3 ZERO 
RB RFPC SP1 

UBUS G1ASL SH RH TNCT CTRm 

JMP FIX2 UNC 



-<EXp-256-23)-l 

INTEG OVFL 1^ EXP-256>30 

SP3„0 t 2C + JMP 
SHIFT VsR9,SP3,SPl (OJB) 

LEFT (EXP-2&6>-2? BITS 
CHECK SIGM 



ASR, LSR, CSR, TEST, 8TST 
ENTER WITH SR>«ll FOR SHIFTS PADD«ClR ( 1 : 1 5 ) 



XC PADD ADD 

UBUS CAD CTRL 

RA REPC 

UBUS CTSS SRl RA 



1261 33777757757 



# 
TES< 



RA 



ADD 



INCT CTRm 
INCT CTRM 

CCA NEXT 



CTR . -CNT-1 
SHIFT IF CNT NZRO 
CCA, NEXT 



PA9C 27 



ADDRESS CONTENTS 



LAB, RBUS SBUS FUNC ShfT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2*06 PM 



1349 
1350 
1351 
135t 
1353 
1354 
1355 
1356 
1357 
135B 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1378 
1373 
1374 
1375 
1376 
1377 
137B 
1379 
1380 
1381 
1383 
1383 
1384 
1385 
1385 
1387 
1388 
1389 
1390 
1391 
139» 
1393 
139* 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 



1262 33777764017 



1263 
1264 
1265 
1266 
1267 



1270 
1271 
1272 
127S 
1274 
1275 



1276 
1277 
1300 
1301 
1302 
1303 



0*777777767 
16347377777 
33772337277 
166763J2277 
33777767757 



02777777767 
16347377777 
333063J0563 
32772377277 
16653732277 
0i6663«>0563 



027777 77767 
163473/7777 
33526330563 
32772377277 
16653733277 
25666360563 



1304 


02777777767 


1305 


16347377777 


1306 


333063J1313 


1307 


32537707777 


1310 


31772377277 


1311 


16620332277 


1312 


25657777777 


1313 


31777407757 


1314 


01677767777 


1315 


01773377652 


1316 


01677757777 


1317 


37762361304 


1320 


31772377277 



ft 

BTSt 

ft 


RA ADD RRZ CCB NEXT 


« 
» 
ft 


ASLi LSLi CSL 
ENTER WITH SR>»1I PADDbCIR < 10 : 15) 


SHFt 


XC PADD ADD 

UBUS CAD CTRL 
RA RFPC INCT CTRm 
UBUS CTSS SLl RA INCT CTRM 
RA ADD CCA NEXT 


« 
ft 

ft 
n 


DASL, DLSLt DC5L 
ENTER WITH SR>s2, PADD«CI R ( 1 » 15 ) 


SHDi 


XC PADD ADD 



CCB ON (S> (8 J 15) , NEXT 



ft 
ft 
» 
» 
ft 
SHDo 



TASi 



UBUS CAD CTRL 
RA JMP DCCA SPl CTRM 
RB REPC INCT 

UBUS CTSD SLj RB INCT CTRM 
SPl JMP DCCA RA UNC 



DASR, OLSH, DCSR 
ENTER WITH SR>«2, PADDsCIR ( 1 J 15 ) 

XC PADD ADD 

UBUS CAD CTRL 

RA JMP OCCft «5P3 CTRM 
RB REPC INCT 

UBUS CTSD SRi PB INCT CTRm 

SP3 JMP DCCA RA UNC 



TASLt TASR 
ENTER WITH SR>=3, PADD»CIR ( 10 I 15 ) 



XC 



TAS- 



TASt? 



RB 



PADD 


ADD 










UBUS 


CAD 




CTRL 






RA 


JMP 


TAS2 


SPl 




CTRm 


RB 


ADD 




SP3 




RSB 


RC 


RFPC 






INCT 




UBUS 


QASL 


SLl 


RC 


INCT 


CTRm 


SP3 


ADD 




RB 






RC 


ADD 






CCA 


ZERO 


SPl 


ADD 




RA 




NEXT 


SPl 


IOR 






CCZ 




SPl 


ADD 




RA 




NEXT 




JSB 


TASL 






UNC 


RC 


REPC 






INCT 





CTR . -CNT-1 

SHIFT IF CNT NZRO 
CCA, NEXT 



CTR « -COJNT-1 

EXIT IF COUNTaZERO 

TBUS «. MSW 

SHIFT LEFT 

SET CC ON RESULT 



CTR - -COJNT-1 

EXIT IF COUNT*ZERO 

T^US „ MSW 

SHIFT RIGHT 

SET CC ON RESULT 



CTR - -COJNT-1 

SPl-W(3p:47) | EXIT IF CNTsO 

SP3_W(16» 31) | RtT IF TASR 

SL «C,SP3,SP1 
RB-W(16t31) 

CCA ON MSW| ZERO? 
NO» HA„W<32:47) t DONE 
YESI CCZ ON W(16J47) , 
RA„W (32:47) , UONE 



SET UP SP3,SP1,CTR FOR SHFT 



PA3E 28 



ADDRESS CONTENTS 



LAS, RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2:o6 PM 



1404 
1*05 
1406 
1*07 
1409 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1419 
1419 
1*20 
1421 
142? 
1423 
142* 
1*25 
1426 
1427 
1*2B 
1459 
1430 
1431 
1432 
1433 
1434 
143? 
1*36 
1*37 
143B 
1*39 
1*40 
1*41 
1*42 
1443 
1444 
1445 
1*46 



1321 37620733276 
132? 2&6463&1313 



1323 


31721601777 


1324 


32526011330 


1325 


37311600052 


1326 


3S773017773 


1327 


015577S7727 


1330 


33317777777 


1331 


3S6320&7777 


1332 


166200»2277 


1333 


2b657777777 


1334 


01677777777 


1335 


145577&7707 



1336 


02777777766 


1337 


16347377777 


1340 


323063J1346 


1341 


315262*1353 


1343 


30772377277 


134 * 


166003d2873 


134* 


37677777765 


1345 


25637777777 


1346 


30777407757 


1347 


016577*7777 


1350 


01657777777 


1351 


01773377771 


1352 


337733S»f656 


1353 


30772377277 


1354 


33600733276 


1355 


176663*134"; 



TNSi 



TNS? 



UBUS QASR SRl RC JNCT CTRM SR RC,SP3,SP1 

SP3 JMP TAS? HB UNC RB.W ( 16 : 31 ) f SET CC 



TNSL 
ENTER WITH SR>»3, RC,R8,RAsW, PADD«CIR < 10 I 15) 

IF W(6I47)<>0 THEvJ W(0i5).0, NORMALIZE LEFT TO BIT6, X.XC+SHIFf CNlT 
ELSE X.XC+42 (w UNCHftNGED) 





RC 


ROMN 




<aPZ 


001777 




RB 


JMP 


TNS2 


SP3 


NZRo 






ROM 




SP1 


000052 


RA 


SP? 


IOR 






nZho 


xc 


SP1 


Ann 




X 


CCE NEXT 




RA 


Ano 




SP1 






SP2 


REPC 




RC 


BIT* 




UBUS 


OASL 


SLl 


RC 


TMCT BIT* 




SP3 


ADO 




RB 






SP1 


ADD 




RA 




XC 


CTRL 


ADD 




X 


cce NEXT 



QASL/QASR 
ENTER WITH SR»4, PADn*CIR < 1 » 15 ) 



QALn 


X 


PADD 
UBUS 


ADD 
CAD 




CTRL 










RB 


JMP 


QLR3 


$P) 




CTRM 






RC 


JMP 


QLR5 


«?P3 




INDR 






RD 


REPC 






TMCT 






RA 


UBUS 


OASL 


SLl. 


RD 


INCT 


CTRm 


* 
QLR-. 


RBUS 




Ann 




oa 








SP3 


ADD 




PC 






QLR-a 




RD 


ADO 






CCA 


ZERO 






SP1 


ADD 




RB 




NEXT 






SP1 


ADO 




PB 








RC 


SP1 


IOR 










# 


U8US 


RA 


IOR 






ccz 


NEXT 


QLRr 




RD 


REPC 






tnct 






UBUS 


RA 


QASR 


SRl 


RD 


INCT 


CTRm 






SBUS 


JMP 


QLR? 


RA 




UNC 



2-W(0l 15) WITH W<0»5)s0 
3-W(16S 31)sZERO? 
3, SP1_42 



5P2. 

SP3. .. 

YES, SP1_42 

^(65 15,32J*7) ALSO 

YESI X_XC+*2, CCfc, 

SP1_*(32:*7) 

HC 



ZERO? 
DONt 



bPl-*(32:*7) 

*C_W<0!15) WITH WC0I5)=0, 
IF NO BIT6 SL SP2,SRj,SPl 
INTO RC,RB,SP1 UNTIL BIT6 

-<A_W(3?;47) 



«A_W(3P;47) 
X_XC+SHIFT CNT, CCO, 



DONE 



CTR . -COJNT-1 

SP1-,W(32!47) { fcXIT IF CNTsil 

SP3-W (168 31 ) i JMP IF QASR 

SL RD,SP3,SP1 , RA 
RA»W <*b : 63) 

MC_> (16J31) 

CCA ON MSW| ZER07 

MO I RB.W (321*7) , DONE 

YES? RH_W(32J47) , 

CCZ ON W ( 16:63) , 

DONE 



SR RD,SP3,SP1,RA 
WA.W (46163) , SET CC 



PAOC 89 



ADDRESS CONTENTS 



LAB t RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG X3, 1*76, 2506 PM 



1447 
1448 
1449 
14S0 
1451 
1453 
1453 
145ft 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1468 
1463 
1464 
146B 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1493 
1483 
1484 
1485 
I486 
1487 
1488 
1489 
1490 
1491 
1498 
1493 
149ft 
1495 

1496 
1497 
1498 
1499 
1500 



1400 
1*01 
1408 
1403 
1404 
1405 
140ft 



1413 
1413 
1414 
1415 
1416 
1417 
1480 
1481 



1*88 
1483 
1484 
1485 
I486 



0«23777'8764 
0*531377760 
14537777764 
8S>3583 77777 
16337733877 
8b35l377760 
0076609141? 



1407 33778377777 

1410 16735333877 

1411 356637P77S5 



33663777775 
lb77837777* 
16675338877 
85351377760 
3777837777«5 
16735338877 
3b76877777? 
166533b7j,53 



33766001430 
33778137777 
16677538877 
14556647766 
14557777777 



1487 33677757753 



SECTOR 3 

FIELD AND BIT IMSTRSl ExF , oPF , SCANi 

TRBCt TSBC, TCQCt TBC 

PSHR, SETR, XCHD, ADOS, SUBS 

XEQ, LLSH/RSw, OPTX 

I/O INSTRSJ SIO, RIO, WJO, TiO, CIO, SIN, CMD, SED, 
RMSkVRCLK, SMSK/SCLK 

SUBROUTffNESj AS-K, IOPD/A, PuLl, PSHM, PSHA, BNDC 



• EXF, r>P? 

# ENTER WITH SR>al FOR EXF, SR>«2 FnR DPF i PADD*CIR < 8 { 15 ) 

S.l4f>0 

DEXF PADO PADD ADD SLl OTPH 

SP3 177760 

SP3 

rTRL 

SPC INCT CTRM 

CTRL 177760 

BIT* 



PADD ROMI 
PADD CTRL ADD 
SP3 REPC 
UBUS ADO SRi 
SP3 ROMI 
CIR JMP DPF 



EXF 



RA «EPC 

UBUS CRS SRi SP8 INCT CTRM 
SPO SP8 AND oA CCA NEXT 



1430 
1*31 



37771600080 
16557757787 



DPF 


SPO 


RA AND 
UBUS REPC 




RA 








UBUS CRS 


SLl 


PA 


INCT CTRM 






SP3 ROMI 




CTRL 


177760 




SPO 


REPC 












UBUS CPS 


SLl 


SP8 


INCT CTRM 




RB 


SP8 CAND 








# 


RA 


UBUS IOR 




PB 


POP A NEXT 


4» 

n 




SCAN 








# 


ENTE 


R WITH SR>al 






SCAm 




RA Jh>P 
RA REPC 


SCN8 




ZERO 
NEG 






UBUS ADD 


SLi 


RA 


INCT NEG 




X 


CTRL INC 
CTRL ADD 




Y 

X 


INDP 


# 


RA 


RA ADD 




»A 


CCA NEXT 


SCNp 




ROM 






000080 




XC 


UBUS ADD 




X 


CCE NEXT 



f-TR . J 

SP3 „ -U6-K) 

SP3(18J15) . J+K MOD 16 

CTR . -(16-K) 

SPO-K "ITS RIGHT JUSTIFIED 

CTR „ -( 16-( J+K MOD 16) ) 

JMP IF DPF 



ROTATE (S) SO K BITS 

ARE ^IGHT JUSTIFIED 
<S)-K OITS FwOM <S> , CCA 

(S)«FIELD TO BE 

DEPOSITED IN S-l 
ALIGN (S) WITH (S-l) 
CTR . -(16-( J+K MOD 16) ) 

ALIGN MAS< WITH (S-l) 
SAVE GOOD DATA 
DEPOSIT FIFLO, CCA 



JMP IF (S)*0 
SHIFT LEFT 

LOOKING FOR A ONE 
X.X+CNT+1J CIR(4)? 

NO, X_CMT 

SHIFT ONE MORE, CCA 

(S)=0| 

X.XC+16, CCE 



PA3E 30 



ADDRESS CONTENTS 



LAB| RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 210* PM 



1501 
1503 
1503 
15 34 
1509 
15)6 
1507 
1508 
1509 
1510 
1511 
151? 
1513 
1514 
1515 
1516 
1517 
151B 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
152T 
1539 
1529 
15 30 
1531 
1532 
1533 
1534 
1535 
15 36 
1537 
1539 
1539 
1540 
15*1 
1542 
15*3 
15*4 
15*5 
154S 
1547 
154B 
154 9 
1550 
1531 
1552 
1553 
1514 
lq«55 



1432 
1433 


377623*1440 
35662757773 


1434 
1435 


377623&1440 
35673357773 


1436 
1437 


3f7623bi4<»o 
35663367773 


1440 
1441 
1442 
1443 
1444 
1445 


0*777777467 
163473*4337 
167323^1277 
16735333277 
36763707753 
3777776^777 



1446 


21302211744 


1447 


23771600011 


1450 


1676777714? 


1451 


233261317S? 


1452 


02735123777 


1453 


22207777775 


1454 


02307065317 


145^ 


22207777774 


1456 


35357423777 


1457 


3f217777766 


1460 


14357423777 


1461 


242022117*4 


1462 


14357423777 


1463 


2220777776? 


1464 


34322211744 


1465 


01775132374 


1466 


22207777775 


1467 


02761410300 


1470 


37777767777 


1471 


37766263H7 


1472 


03217577417 



ft 
« 

TRBc 
TSBC 



TCBn 



ft 
TBC 



» 
« 

» 
« 
« 
PSHp 



« 
PSHs> 



TRBC. TSBCi TC-iCt TBC 
ENTER WITH SR>«1, PADDsC IR ( 10 I IS) 



RA 



RA 



RA 



XC 



RA 





JSB 


TBC 






UNC 


SP? 


CAND 




RA 




NEXT 




JSB 


TBC 






UNC 


SP2 


I OR 




PA 




NEXT 




JSB 


TBC 






UNC 


SP2 


XOR 




RA 




NEXT 


PADD 


ADD 






SF1 




UBUS 


CAD 


RRZ 


CTRL 


FHB 




UBUS 


PEPC 


LL7 


SP2 


INCT 


CTRM 


UBUS 


CPS 


SRi 


SP2 


INCT 


CTRm 


SP? 


AND 
ADO 






CCA 


RSB 
NEXT 



TEST BIT, SET CC 
RESET BIT 



TEST BIT, SET CC 
SET BIT 



TEST BIT, SET CC 
COMPLEMENT 91 T 



CTR . (-N-l)MOD 64 

SP2. UBUS. 100000 

SP2 - SHIFT (N)MOD 64 

SET CC« RETURN IF NOT TBC 

NEXT IF T3C 



PSHR 
PUSH OS,DQ,X,STA,DZ,DDL,DB-BaNK,DB,S-BaNK 
AS SPECIFIED BY ClR(l5i8)l DR-BANk , OB , S-BANK ARf P«V 
PADOsCIR (A: 15) 



Q JSB PSHA SPl SRN7 

SM ROM 000011 

Z UBUS SUB CTF 

SM JMP BN02 SPO NF1 

PADO CRS SRi sP2 POS 

SPO DB SU« PUSH 

PADD CAD RLZ SPl H8F BIT6 



SP1 



DB 
SP2 



StJR 
ADD 



SRi 



PUSH 
CTRL 



X ADD PUSH 

CTRL ADD SR\ CTRL 

STA JSB PSHA PUSH 

AT THIS POINT SR<s3 

CTRL ADD SRi CTRL 

Z DB SUB PUSH 

DL JSB PSHA SPO 

SPl SPl CRS SLl 



EVEN 



EVEN 
SRN7 

EVEN 



SPO DB SUR 
PADD POMN 



PUSH 



SRNZ 
UBF NEC, 



0300 NZRQ 



ADD NEXT 

JMP TRp«, NPRV 

RBR ADD PUSH DB NF2 



SP1.U? EM»TY TOS REGS 
SM + 9 

Pi It- />sSM + « (Z<64K-9) 
STOV(BNDt) If NFlj SP0«SM 
PUSH US IF C1RU5) 

LH SPl. NOT CIR (B! lb) ,F1_N0T 
C1W(8> {OJSh D'J IF CIRC14) 

CTR.CIW (8: 13)1 

PUSH X IF CI»(13) 

PUSH STA (AND EMPTY TOS 
IF SR>i) IF CIRI12) 

PUSH DZ IP CIRI11) 

SPO.Otl EMPTY TOS RfcGS 
SF? IF NOT CIRC*) I 
PUSH DDL IF CIP(IO) 

PUSH D»-.BMK,DB(NF2) OR 

S-BNK(NFl) IF CIR(8 OR 9) 
ELSE DONE 

YESS MODE VIOL IF NPRV 
PUSH DFUBANK 



PA3E 31 


ADDRESS CONTENTS 


1556 


1473 


046777S7617 


1557 


1474 


222061*1470 


155B 


1475 


0J217737617 


1559 






1560 






1961 






1562 






1563 






156* 






1565 






1566 


1476 


0*311777760 


1567 


1477 


03537667617 


1568 


1500 


Q13463t>iSQ7 


1569 






1570 


1501 


01346123H7 


1571 


1502 


33321627400 


157? 


1503 


243017&0377 


1573 


1504 


15367057777 


1574 


1505 


01513377575 


1575 


1506 


377663?1526 


1576 






1577 


1507 


02317525777 


1578 


1510 


33537777577 


1579 


1511 


01317532577 


»«« WARNING < 


t 6) ««» TOS LOAD NAME 


1580 


1512 


332Q63&1515 


«»« WARNING i 


( 6) «•« TOS LOAD NAME 


1581 


1513 


30457777577 


4»0« WARNING l 


I 8) «»<> TOS LOAD NAME 


1582 


1514 


33157777417 


1583 


1515 


01317522777 


1564 


1516 


22717777573 


1585 


. 1517 


3776220173? 


1586 


1520 


01317522777 


1587 


1521 


2225777757-? 


1588 


1523 


3776220173? 


1589 


1523 


1S367057777 


1590 


1524 


33517777577 


1591 


1525 


37762201732 


1592 






1593 


1526 


157730O3364 


1594 


1527 


33557777577 


1595 


1530 


237261 '153* 


1596 


1531 


3376220173? 


1597 


1532 


2231777777ft 


1598 


1533 


2^7223«»175l 


1599 


1534 


01437777577 


1600 


1535 


02777437777 


1601 


1536 


251577&7617 


1602 


1537 


33762201732 


1603 


1540 


22317777776 


1604 


1541 


167223&1751 


1605 


1542 


37762211744 


1606 


1543 


35466301536 


1607 







LAB L RSUS SBUS TUNC SHFT STOR SPEC SKIP 



RBR ADD PA S NEXT 
DB JMP PSH2 PUSH Fl 
RBR ADD PUSH S NEXT 



COMMENTS 



FRIi AUG 13, l*7b, 2106 PM 



« 

« 

» 

« 
SETo 



SUBST S-BANK, OQNE IF F? 
PUSH 08} DONE IF Fl 
PUSH S-BANKf DONE 



SETR 
SET S~BANK,DB f DB-BANK,DLfZiSTAtX,OtS 

AS SPECIF BY CIR(9!15H S-BNK THROUGH Z AND STA { o » 1 , 3 t 6 J 15 > ARE PRV 
ENTER WITH SR*4i PADD«CIR ( 8 J 15 ) 



SPO 



SET 



PADD ROM SPl 177760 

RBR ADO SP3 S NPRV 

SP1 JMP SET1 CTRL UNC 

SP1 JMP TR06 r-TRL POS 

RA ROMN SPO 027400 

STA ROMN SP1 150377 

CTRH CAD CTRH BITft 

SP1 IOR STA POP 

JMP SETS UNC 



POS 



SP1 POS IP ANY CIR(QJM) 

SP3«.S-BAN< 

CTR-ClR(i2US) I JMP IF PRV 

ELSE TRPf, IF ANY ClK(B:m 
ISOLATE (S) (2,417) 
SP1.STA WITH BITS ?,4»7 CLH 
SET STA(2,4:7) IF ClR(l^) 

CHECK CIRI13I15) 



IF CIR(fl) THEN 

SP3»(S) (SET S-BANK) 
SET D8,0B-BNK U CIR<9) 



PADD ADD RL? SPl 

RA ADD SP3 POP 

SP1 AOD SLl SPl POP NEG 
IS oLD NAME BEFORE PRECEDING PUSH, POP OR INCN 

RA JMP SFT? PUSH UNC NO, REPLACE TOS 
IS nLD NAME BEFORE PRECEDING PUSH, POP OH INCN 

"D *OD OB POP YESI SET 3B, OB-BANK 

IS nLD NAME BEFORE PRECEDING PUSH, POP OH INCN 

RA ADD SBR OB 

SPl ADO SLl. SPl 

OB ADD OL POP 
JSB PUui 

SPl ADO SLl SPl 

DB Add X POP 

JSB PUU 

CTRH CAD CTRH 

RA ADD STA POP 
JSB PUL1 



SET? 



RA 



RA 



POS 

SKZ 

POS 

SRZ 
BIT* 



SET DL IF CIP(IO) 

PILL AT LEAST ONE TOS PEG 
SET Z IF CIR(ll) 

FILL AT LEAST ONE TOS KEG 
SET STA IF CIRJ12) 



SRZ 



SET-* PADD CTRH IOR SRl 

RA ADO X 
SM JMP SET4 ?P? 
RA JSB PUL1 
UBUS DB ADD SPl 
SM JSB BNDC SP2 
SPl ADD Q 
SETa PADD ADD 
SETn SP3 ADD SBR 
RA JSB PULl 
UBUS DB ADD SPl 
UBUS JSB BNDC SP2 

JSB PSMA 
SP2 JMP SETS SM 



LBF 


BITB 


POP 






NF2 




SRZ 




UNC 


POP 






ODD 


S 


NEXT 




s»z 




UNC 




SHNZ 




UNC 



FILL AT LEAST ONE TOS PEG 

SF2 IF CIR(14) I CIR(13)? 

YES, SET X 
SP2-SM, JMP IF NO CIRU4) 
FILL AT LEAST ONE TQS REG 
SPl^NEW Q 
SPg.SM, C< NEW Q 
SET Q 

SET S IF CJRJ15) 
ELSE S-BAMK.SP3, DONE 
FILL AT LEAST ONE TOS RFG 
SPl -NEW S 

5P2„NEW S, CK BOUNDS 
EMPTY TOS REGS 
SET S 



PAW 32 



ADDRESS 



CONTENTS 



LAB, RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG I3f 1*76, 2J06 PM 



1608 

1609 

1610 

1611 

1618 

1613 

lel4 

1615 

1616 

1617 

1618 

1619 

1620 

1631 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1'j4 3 

1644 

1645 

1646 

1647 

1649 

1649 

1650 

1651 

1652 

1653 

165 4 

1655 

165 6 
1657 
1658 
1659 

166 
1661 
1562 



154* 
1545 



1561 
1562 
1563 
1564 
1565 
156* 
1567 



1570 
1571 
157? 
1573 
1574 



37766263H7 
0*726012643 



1546 33457777777 

1547 22677777777 

1550 32157777417 

1551 03657767417 



1552 33307367777 

1553 37307377773 

1554 02302011744 

1555 01302211744 

1556 23316777774 

1557 377623&1751 
1560 37467357774 



02307117761 
0*317767777 
2J136767714 
3M77767223 
22766777775 
20411777777 
3^777/6^777 



0*7660*1611 
333262&3117 
37556777766 
3*157767017 
26157777017 



ft 
» 
» 
» 
« 
XCHr 



XCHD 
ALSO ENTRY FOR DISP, PSDB AND P5EB 
ENTER WITH SR>*2t PADD*CIR ( 12 »15 ) 



JMP 
PAOD JMP 



TRP6 

DISP SP2 



NPRv 
N*Ro 



EXCHANGE OB-BANK, OB WITH <S-1),(S) 



NEXT 



HA 


ADD 


OB 


600 


RB 


ADD 


RBR 


ADD 



DB 




c?A 




SRR 


OH 


P8 


OB 



XCHD, DISP, PSDB, PSEb ARE PRV 
IF CIR(14,15) OISP, PSDB 
OR PSEB INSTRS, SET SP2>0 



SWITCH RA AND OW 
SWITCH RB AND OB-BANK 



SUB«; 
ADOS 



ADOS, SUBS 
ENTER WITH SR>sl, PADD « +-N 

RA CAD SP1 

RA CAD «P1 

PADD JSB PSmA SP1 

SP1 JSB RSHA SP1 



C I R ( 8 : 1 5 > 



ft 

XECJ 



SPl SM 



SP1 



XEQ 
PADD = K 



SR 



INC 
JSB 
CAD 



BNOC 



SPl 



SM 



UNC 

NZRO 
SRNZ 



UNC 

NEXT 



CIR J 12 J 15) 



OAOD CAD 

PADD ADD 

SPl SM IMC 

MREG ADD 

SPO DB 3NDT 

P ROM 

ADO 



SPl NCRy 
SPl UNC 

«SP0 RNS UNC 

PiUS MIR UNC 

P 177777 

NEXT 



SUBS ENTRVJ SPl , -(S)-l 
ADOS ENTRYJ SPl _ (S)-l 
SP1-N, EMPTY REGS IF N<>0| 
ELSE RESTORE SPl, 

AN J EMPTY TOS MEGS 
SPl « ^ + SPl + 1 
pNDC O S 3 1, 0BO7ER0 
5 _ SPl - 1, NEXT 



SR>K, IN TOS REOS? 

YES! SPl. TOS PT« 

NO} REAO FROM MEM 

YES} LD NIR FROM TOS RtGS 

NOI CHECK bOUNOS JP NPRV 

P.P-1 SO INSTR AFTER 

XEQ FOLLOWS XEQED INSTR 



« 
» 
ft 
ft 
ft 
ft 
« 
ft 
« 
ft 
LLSu, 



LLS, 



llsh/»sw 

linked list search u^til cntso, tfst<=target or targtt=-ll 
xscnt, rb,ra=a8s ptr to list, rr=test woro, rdstaroet offset* 
next bnk.ador in last link and test word in "next" link 
must be in legal memory, 

read switch reg! tos_swch 

ENTER WITH SR*<o PADn»C IR ( 8 : 15 ) 

JMP IF RS* INSTR 
5P0-RAJ LLSH IS PRV 
INC X FOR LOOP 
SET LINK SANK 
SET NEXT LINK HANK 



PADD 


JMP 


RSv 




EVEN 


RA 


JMP 
INC 


TRP6 SPO 

y 




NPRV 


RB 


ADD 


SBR 


OBS 


UNC 


OPND 


ADD 


SBR 


ABS 





PA9E 33 



ADDRESS CONTENTS 



LAB';' RBUS SBUS PUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13» 1*76, 2106 PM 



1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
167S 
1676 
1677 
1678 
1679 
1680 
1681 
1688 
1683 
1684 
168S 
1686 
168T 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
16R5 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 



1575 


30177777173 


1576 


37547017766 


1577 


3f6777t»7675 


1600 


33176777177 


1601 


26727377151 


1602 


03657777017 


1603 


37766323000 


1604 


33137567177 


1605 


26666301574 


1606 


35767407771 


1607 


3777775/737 


1610 


37777767717 


1611 


3/762361737 


1612 


07217757757 



1613 04766087777 

1614 0*771463400 

1615 16577773765 

1616 02571212360 



1617 
162o 
1621 
1623 
1623 
1624 
1625 
1626 
1627 



3'7623 
165313 
377623 
257661 
011777 
331777 
015313 
377623 
3 77777 



*>1716 
02400 
61724 
21651 
'2154 
77437 
01000 
61724 
57557 



1630 


37762361716 


1631 


377622*1737 


1632 


01531302400 


1633 


3^762361724 


1634 


26777532777 


1635 


37766361651 


1636 


01531303400 


1637 


37762361724 


1640 


25217757737 



» 
RSW 

» 
« 

« 

OPT* 



« 
SIO 



READ TARGET WORD 

DECR COUNT! REPLACE LAST 

ADOR, CCL, DONE IF ZERO 
READ NEXT LINK AQDR 
SF1 IF TEST>TARGET 
STORE LINK BANK 
JMP IF INT PENDING 
READ NEXT LINK BANK 
JMP| RA„NEXT ADDR IF Fl 
TARGET ALL l'S? 
NO, CCE 
YES. CCG 

EMPTY ONE TOS RtG 
TOS-SWCH, CCA 



OPTX 
OPTIONAL INSTRS 020400/7771 ENTER wITH SR»4, PADD*C IR (8 8 15 > 



RA 


RD 


ADO 




BUS 


ROA 




X 




CAD 




y 




NZRO 


SPO 




ADD 




RA 


CCL 


NEXT 




RA 


INC 




BUS 


POA 




RC 


OPND 


CAD 




SP2 


CTF 






RBR 


ADD 
JMP 


IR^ 


RB 


ABS 


TEST 




RA 


ADD 




BSPO 


ROA 


NFl 




OPND 


JMP 


LLS1 


RA 




UNC 


RC 


SP2 


SUB 
ADD 
ADD 

JSR 


PSHM 




CCE 
CCG 


ZERO 
NEXT 
NtXT 

UNC 




SWCH 


ADD 




PUSH 


CCA 


NEXT 



CPX1 JMP UNI* 
PADD ROM 
RBUS UBUS ADD SRi 
PADD ROMI 



RAR 
PAR 



EVEN UNIM (TRP7) IF NOT PRESENT 
3400 BITB IF CIR ( 8 » 15 ) ***00 

RAR«.3400 + CIR(b:i5)/2 
012360 fe'LSE RAR„123fc0+ClR(12ll5) 



SIO, RIO, WIO, TIO, CIO, SIN, CMD 
PADD a K a CXR(12tlS)| ENTER WITH SR>»1 FOR SIO , Wl , C 10 , CMD 



UNC 
102400 

UNC 
PCS 
SPi SP1 A()D SLl RUS WRA 

OATA 
101000 

UNC 
POPA NEXT 

SIO IS MODIFIED Bv A PATCH (AFTER SEC 0-7 TO PROPERLY 
COMPUTE PARITY), DRT PTR IS REAO TO MAKE SURE WRITE HAS STARTED 
BEFORE I/O STARTS, PATCH SHOULD rE MOVED TO E>JD OF SEC 3 IF 
SEC 3 IS REPLACED, OR PUT IN LINE IF LUT IS ALSO REPLACED. 





JSB 


AS-K 




UBUS 


ROMI 




SP3 




JSB 


IOPA 




SP3 


JMP 


DVNR 




SPI 


ADD 


SLl 


RUS 


RA 


ADD 




RUS 


SPI 


ROMI 




SP3 




JSB 


IOPA 






ADD 







LOAD DEV* INTO SPl 

FORM TIO CMD <RANK1 KSfc«) 

SEND TO DEVICE 

JMP IF SIO NOT HEAOY 

(DEV« # 4)»(S) 

* I/O PROG ADDR 
FORM SIO CMD 
SEND TO DEVICE 
S.S-1, SET CCE, OONE 



RIO 



SPI 



SP3 



SPI 



SP3 



JSB 


AS*K 




UNC 


JSB 


PSHM 




SR4 


ROMI 




SP3 


102400 


JSB 


IOPA 




UNC 


ADD 


SLl 




NEG 


JMP 


DVNR 




UNC 


ROMI 




SP3 


103400 


JSB 


IOPA 




UNC 


ADD 




PUSH 


CCE NEXT 



LOAD DFV# INTO SPl 

EMPTY A TOS REG IF NEC 

FORM TIO CMD 

SEND TO DEVICE 

DEVICE READY? 

JMP IF NOT 

FORM RIO CMD 

SEND TO DEVICE 

TOS. OATA, SET CCE, DONE 



PA3E 3* 


ADDRESS CONTENTS 


1718 


1641 


3372230171ft 


1719 


164? 


16531302400 


1720 


1643 


377623«>1724 


1721 


1644 


25777532777 


1722 


1645 


377663«>165l 


1723 


1646 


01531301400 


172* 


1647 


37762361723 


1725 


1650 


3'77775755? 


1726 






1727 


1651 


377622*1737 


1728 


1652 


25217757717 


1729 






1730 






1731 


1653 


377623*1716 


1732 


1654 


3^762221737 


1733 


1655 


01531302400 


1734 


1666 


377623&1724 


1735 


1657 


25217757737 


1736 






1737 






1738 


1660 


33722J<U716 


1739 


1661 


16531300400 


1740 


1662 


37762361723 


1741 


1663 


37777757557 


1742 






1743 






1744 


1664 


37762361716 


1745 


1665 


16531300000 


1746 


166ft 


37762361724 


1747 


1667 


37777757737 


1749 






1749 






1750 


1670 


3776236i7if 


1751 


1671 


16177777037 


1752 


1672 


33177777057 


1753 


1673 


377777Sf577 


1754 






1755 






1756 






1757 






1758 






1759 


1674 


37766263U7 


1760 


1675 


24S01737777 


U6i 


1676 


027727*2764 


1762 


1677 


16315333277 


1763 






1764 






1765 


1700 


24513357774 


1765 






1767 






1768 






1769 






1770 






1771 


1701 


37762221737 


1772 


1702 


02776532764 



LAB L RBUS SBUS FUNC SHrT STOR SPEC SKIP 



COMMENTS 



FHI, AUG 13, 1*76, 2J06 PM 



WIO 



OVNf 

* 
» 
TIO 



» 
CIO 



ft 
ft 
SIN 



» 

CMD 



» 
» 
SED 



« 
» 
« 
RMSt 



RA JSB AS-K SP2 UNC 

UBUS »0MI SP3 102*00 

JSB IOPA UNC 

SP3 ADD SLl NEG 

JMP DVNR UNC 

SP1 ROMI c?P3 101400 

JSB IOPD unc 

ADD POPA NEXT 

JSB PSHM SH4 

SP3 ADD OUSH CCG NEXT 



JSB AS-K unc 

JSB PSHM SR4 

SP1 ROMI SP3 102400 

JSB IOPA UNC 

SP3 ADO PUSH rCE NEXT 



RA JSB AS-K SP2 UNC 
UBUS ROMI «5P3 100400 

JSB IOPO UNC 

ADO POPA NEX.T 



JSB AS-K UNC 

JBUS ROMI SP3 100000 

JSB IOoa UNC 

aOQ CCE NEXT 



JSB AS-K UNC 

UBUS ADD wUS C«L 
RA ADO MUS CMD 

ADO POP NEXT 



SED 
PADD a CIR(12U5) 

JMP TRPh NPRv 

STA ROMN STA 137777 
PADD PADD REPN SLl 04 

UBUS CRS SHI SP1 INCT CTRm 



SP1 STA IOR 



RMSK/RCUK 
PADO * -CIR(12I15> 

JSB PSHM 
PAOD PADD INC SLl 



;ta 



NEXT 



SR4 
NEG 



SP2-CS), LOAD DEV* INTO SPl 
FORM TIO CMD (RANK! RSB) 
SEND TO DEVICE 
DEVICE READY? 
JMP IF NOT 

SP3-WIO CMD, <S> IN SP2 
SEND BOTH TO DEVICE 
S-S-l, SET CCE, DOME 

EMPTY A TOS REG IF NEC 
TOS-DEv STA, SET CCG, DONE 



LOUD DEVtf INTO SPl 

EMPTY A TOS REG IF NEC 

KORM TIO CMD 

SEND TO DEVICE 

TOS-DEV STA, SET CCE, DONE 



SP2-(S), LOAD QEv* INTO SPl 
FORM CIO CMD (RANK1 RSB) 
SEND CMD AND (S) TO DEVICE 
S..S-1, SET CCE, DONE 



LOAD DEV# INTO SPl 
FORM INT CMD (RANKl RSB) 
SEND TO DEVICE 
SET CCE, DONE 



LOAD MCU M0D*/CMD 
SEND TO MCU CONTROL Rfcfi 
SEND CMD AND (S) 
S.S-1, DOME 



SEO IS PRV 

DISABLE EXT INTERRUPTS 

UBUS(1)_CIR<1S) IN 6C SO 
ANY PENDING INT OCCURS 
IMMEDIATELY FOLLOWING SED 
IF DISA3LING INTERRUPTS 

ENABLE EXT INTS IF CIR(15) 



EMPTY A TOS REG IF NEC 
PAODsO IF RMSK, ELSE <* -1 



PA9C 35 



ADDRESS 



CONTENTS 



LAB| RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2:06 PM 



1773 

177* 
1775 
1775 
1777 
177B 
1779 
17B0 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1799 
1799 
1800 
1801 
1808 
1803 
1804 
1805 
1B06 
1807 
1808 
1809 
1810 
1811 
1813 
1813 
1814 
1815 
IBIS 
1817 
1818 
1819 
1820 
1821 

1822 
1823 
1824 
1825 
1826 
1827 



1703 05176/O4176 

1704 13217757777 

1705 26217757777 



1706 
1707 
1710 
17H 
1712 
1713 
17U 
1715 



1723 
1724 
1725 
1726 
1727 
1730 
1731 



1732 
1733 
1734 
1735 
1736 



337262&3H7 
37531703000 
02336522764 
33017757577 
377623*1723 
0bl76f'4l55 
33177777457 
377777&f737 



3b057777777 
25037777777 
ldb37777777 
04777433777 
37777707777 
1476601276? 
37777T&7677 



24177777777 
22767107776 
237662O3120 
37467377776 
2b277707217 



1737 23176777757 

1740 10177777437 

1741 23767H7762 



ubus mod inc 
pclk ado 

OPND ADD 



RRZ 



« 

* 

« 

» 

SMS K 







» 






« 






» 






« 






tt 


1716 


0*3062«»3117 


AS-k 


1717 


02767J07761 




1720 


23176767776 




1721 


3/317704763 




172? 


26317704777 





IOPn 
I OP. 



PUL- 



SUS 

PUSH 

PUSH 



ROA 



UNC 

NEXT 

NEXT 



SMSK/SCLK 
ENTER WITH SR>«1, PADD * -CIR < 12 5 i b > 

RA JMP TRP6 SP2 NPRv 

ROM SP3 103000 

PADO PADD INC SLl SPO POS 

RA ADO PCLK POP NEXT 

JSB IOPO UNC 

SPO MOD INC RR7 BUS WRA 

RA AQD PUS DPOP 

ADD CCE NEXT 



READ (7 OR 11) IF RMSK 
!OS-PCLK IF RCLK 
ELSE TOS„<7 OR 11) 



SMSK AND SCIK ARE PRV 
SP3 . SET MASK CMD 
IF SCLK THEN 

PCLK_(S) , S_S-1, DONE 
ELSE SEND CMU AND MASK 

TO TOP 
(7 OR H). (S) , S,S-1 
SET CCE, DONE 



AS-K TRAPS IF NPRV AuD RETURNS WITH RANK1 RSB WITH SPl. < S-K ) ( 8 I lb ) 
PADD * K a CIR(12tl5)l CHECK IS MADE FOR E IN TOS REGS. 



PADD JMP 
SR PADD CAD 
UBUS SM INC 
MREG ADD 

OPND ADO 



TRP6 SPl 



RRZ 

RRZ 



r»US 
SPl 

SPl 



NPRV 
CRRY 
POS UNC 
RSB 
RSB 



INSTRS USING AS-K ARE PRV 

SR>K7 

NO, READ (S-K) FROM MEM 

YFS, (S-K) IN TOS WEGS 



IOPD AND IOPA HANDLE CPU-lOP COMMUNICATIONS, 

SP2«DATA (FOR IOPO), SP3-CMD/ADDR | IOD RETURNEU IN SP3, 

IF I/O TIMEOUT; CCL.MEXT IF CTR»0 ELSE SYSH { I X I T , LOAD , DUMP ) , 



TRANSFER DATA 

TRANSFER CMD 

SP3-I0D (JNLU IMM AFTR IOA) 



SP? 


ADD 


TOD 


SP3 


ADD 


IOA 


IOD 


ADO 


SP3 


CPX1 


ADD 
ADO 


SRI 


CTRL 


JMP 

a,no 


SYSH 



ODD I/O TIVEOJT? 

RSB >JO| RETURN 

NZRO YES? SYSH IF CT« NZRO 

CCL NEXT frLSE SET CCL , NEXT 



PUL1 PULLS ONE WORD INTO A TOS REG, CHECKING FOR . 

STACK UNDERFLOW (INIT SM<*DB) BEFORE OUEING THE WORD UP. 
RANKJ RSB WITH QUP. PULLED WORD=OPmD. 



SM 
UBUS DB 



UBUS 



IOD 
CAD 
JMP 
CAD 
OPND ADD 



PUS 90S 



SM 



STUN 



CRRY 
NPRV 



SM 
OUP 



INSR RSB 



READ (SM) 

SM>DB7 

NO, UNDERFLOW IF NPRV 

DECREMENT SM 

QUE M£M UP 



PSHM PUSHES ONE TOS REG IMTO MEM, 

CHECKING INCREMENTED SM FOR STACK OVERFLOW. 



• 










PSH M 


SM 


INC 


BUS 


WPS 




QDWN 


ADD 


BUS 


DATA 


Z 


SM 


CAD 







NCRy 



PUSH TOS REG INTO MEM 



Z>=SM+l 



N»A0E. 36 


ADDRESS CON7EN7S 


1629 


1742 


23476707237 


1629 


1743 


3?3063?2S27 


1830 






1831 






1832 






1833 






1834 






1835 


1744 


2J1767777S7 


1836 


1745 


1U177777437 


1637 


1746 


2347665723? 


1638 


1747 


377663*1744 


1839 


1750 


37777707777 


1840 






1841 






1842 






1643 






1844 






1645 






1646 


1751 


01767527762 


1847 


1752 


373063O2S27 


1846 


1753 


22767627774 


1849 


1754 


377662O3120 


1650 


1755 


37777707777 


1851 






1852 






1853 







LAB, RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1976, 2J06 PM 



« 

# 
PSH«v 



» 

« 

« 
* 

BNDr 
8 NO j 



SM 



INC 

JMP 



SM 
EXH SPl 



DCSR RSB 
UNC 



YESI INC SM, DCSR, RET 
NO| SP1.0, STOV(EXU), ALL 
TOS REGS WILL BE SAVED 



PSHA PUSHES ALL TOS REGS INTO MEM, 

WITHQU7 CHECKING FOR OVERFLOW! ENTER WITH SR>si 



SM 


INC 


QDWN 


ADO 


SM 


INC 




JMP 




ADD 



PSHA 



BUS 


*RS 




BUS 


DATA 




SM 


DCSR 


SRL» 

U'^C 

RSB 



PUSH RF;0 

INC SM AND OCSR 

PUSH NEXT WORD IF SR WAS >1 

ELSE RETURN 



STACK BOUNDS TEST ROUTINE 

OVFL CHECKED BEFORE UNFL IN CASE BOTH OVFL AND UNFL 

OVFL IF OUT OF BOUNDS AMD WITHIn 32k OF Z (WRAPPING) 
VARIOUS IN-LINE OVFL TESTS ENTER *\T BNU2 lh OVFl DETECTED 



SPl 



SPl DB 



SP1>* OR WRAP AROUND? 
YESI SP1.0, STOV(EXH) 
SP1<DB OH WRAP AROUIMO? 
YESI UNDERFLOW IF NPRV 
ELSE RETURN 



3L 1764-5,1776 USED BY SIO PATCH, INCL SECOND RARITY SEC 5/3 



SUB 




POS 


JMP 


EXjl SPl 


UNC 


SUB 




POS 


JMP 


STUN 


NPRV 


ADO 




RSB 



PA9E 37 



ADDRESS CONTENTS 



LASt R8US SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FHI, AUG 13, 1*76 



2 ! h P M 



185* 

1859 

1856 

1857 

185B 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

187* 

1875 

1876 

1877 

1878 

1879 

1860 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1693 

1B94 

1895 

1896 

1897 

1899 

1899 

1900 

1901 

190? 

1903 

1*0* 

1905 

1906 

1907 



SECTOR 
MOVE INSTRS! 



2000 22317777477 

2001 3376600220? 

2002 377622*1/37 

2003 37536777777 

2004 33777527777 

2005 2SSP7777777 

2006 16167707633 



2007 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2020 
2021 
202? 
2023 
2024 



2025 
2026 
2027 
2030 
2031 
2032 
2033 
2034 



23326142016 
3b60777776O 
32764777776 
2677777777? 
16764777770 
0J357777217 
36306Jb20S0 
3*602£<>2313 
03357777417 
316022&2313 
14157777017 
22322302353 
377663*300" 
377663&220? 



3*7222*1737 
37536677417 
37762301737 
2330236232] 
14157777ni7 
33737777777 
306223*2321 
3076750715) 



MOVE, MV8W, MVB , CMPB, SCU , SOW , 
MVPL, MVLB, MFDS, MTUS, MDS , MABS 



ft 
ft 
» 
» 
ft 
ft 
» 
ft 
ft 

&20r,0 

MVWn 
MVWp 

ft 
MVWl 



SUBROUTINES! 0*wC t 08BC, MVWS. DSEG, D03S/D0SS 



MOVE 
MOVE WORDS DB OR PB PEL SOURCE TO DB REL TARGET, 
RAsSlGNED COUNT » RR=SOURCE PTR, RC*TARGET PTR, 
ENTER WITH SB>s3 



MVW- 

MVW-. 

MVWu 

MVW15 



ft 
ft 
# 
« 

ft 
ft 
MVBu 





DB 


ADD 




SP1 




RA 


JMP 
JSP 

INC 


D031 
PSHM 


SP3 




PA 


^ no 








SP3 


SUH. 




SP"* 


RA 


UBUS 


SUf< 




MUS 




SM 


JMP 


MV.;? 


SPO 


PL 


PB 


SU» 




RD 


uaus 


RB 


UP NT 






RB 


OPND 


ADD 






RD 


UBUS 


UBMT 








RBR 


mn 




CTRL 




PB 


JMP 


MVW3 


SP1 




RB 


JSB 


D8WC 


PD 




RBR 


4 no 




CTRL 




RC 


JSB 


D8WC 


RD 




CTRL 


"DO 




SBR 




DB 


JSB 

JMP 
JMP 


MVWS 

IRQ 

D031 


SPO 



SF1 



ZERO 
SR4 



pos 



OPNO RSh 



Fl 



Pb 



09 



ABS 



UNC 
NPRV 

nprv 

UNC 

TEST 

UNC 



SF1 IF OB, SOURCE BASE«DB 

EXIT IF C^TrZERO 

EXACTLY 3 70S REGS FlLLFO 

SP3=1 IF CNT POS, ELSE -li 
OPNO..CNT INC/UECR 
MY ONE TOWARD ZE«0> 
RETURN IF NOT MOVE, 

JMP IF 08 PEL SOURCE 
CHECK Pq REL SOURCE dNOS 
ASSUME PL-PB PUS 
FWW IF PL-PB<WEL BEG AOO^ 
i PR tF PL-FB-CWEL END AOOK 
CTR-PB-BASK 
SOUKCE BASE=PB 
TEST [i-. PEL SOURCE IF NPRV 
CTR.UH-UAMK. (2C JMPS) 
TEST D>. REL TARGET IF NP^V 
ABS-BAMK. SOURCE 13ASE B-^NK 
MOVE WORDS, TARGET BASEsUB 
JMP IF INTERRUPT PENDING 
UONE i UEL FROM bTACK 



MVBW 
MOVE BYTES FP.OM D« PEL SOURCE TO DB REL TARGET WHILE ALPHA 
OR WHILE NUMFRIC, WITH UPSHIFT OF LOWER CASE ALPHA IF SPECIFIED. 
LAST TARGET MUST BE TN LEGAL MEMORY. 
RAsSOJRCE BYTE PTo, RBsTARGET BYTf PTR. 
ENTER WITH SR>s2, PA DO = CI R ( 8 J 15 ) 



RC 



RB 


JSB 


PShm 


SP? 




INC 




SP3 




JSB 


PSHM 




SM 


JSB 


DBbC 


SP1 


CTRL 


ADO 




SBR 


RA 


ADO 




^PS 


RD 


JSB 


DBBC 


RC 


RD 


SU-* 







SF2 



ABS 



CTF 



SR4 

SRL? 

UNC 

UNC 



UNC 
CRRY 



SPi-TARGET BYTE PTR 
SP3-1 (DELTA FOR MV LOOP) 
EXACTLY 2 70S RtGS FIH.EO 
TEST TARGET BYTE PTR 
ABS-BANK_CTRsDB-BANK 
TEST SOURCE BYTE PTR, 
PC. TARGET WORU AODR 
TARGET ADDR>*SOUKCE ADUR 



PA9E 38 ADDRESS CONTENTS LABl RBUS SBUS FUNC SHFT STOR SPEC SKIP COMMENTS FRI, AUG 13 t 1*76, 2J06 PM 

1908 2035 30307752774 3P1 RD SUB S|_1. SPl UNC NO, SP J _ ( SK-SOURCE ADDR)*? 

1909 2036 31307772774 SPl RC SUB SLl SPl YES, SP 1„ < SM-TARG «DDR>o? 

1910 2037 027777?2764 PADD PADD ADO SLl 

1911 2040 1637754277ft UBUS UBUS ADO SLl CTRH Fl CTR-CIR ( 8 J 13 ) 

1912 2041 25723767773 RA SP3 AND 5P2 UNC SP2*1 IF RH OF 

1913 2042 2*723777772 RB SP3 AND SP2 MAX ( SOURCE , TARGET AODRS) 

1914 2043 0177160000? SPl POM 000002 COUNT*COUNT + «? 

1915 2044 35207777776 UBUS SP2 SUB PUSH PA.CNT (DECR BY I IF Rr<) 
•«• WARNING ( 8) »#« TOS LOAD N)AM£ IS nLD NAME BEFORE PRECEDING PUSH, POP OR INCN 

1916 2045 3032636«4066 RD JMP MB\0 SPO UNC SPO-SOURCE ADQRI GO MOVE 

1917 * 

1918 «* 

1919 • MV8/CMPB 

1920 « MOVE 8YTES PB OR PB PEL SOURCE To OB PEL TARoETt 

1921 » LAST+1 SOURCE MUST BE IN LEGAL MEMORY IF CNT NZ*0. 

1922 • COMPARE BYTES OB OR PB REL SOURCE WITH OB REL TAR3ET» 

1923 • LAST+1 TAPQET MuST BE IN LEGAL MEMORY IF CNT NZRO. 

1924 • RAsSlGNED COUNT, RB«SOURCE BYTE PTR, RETARGET BYTE PTR. 

1925 • ENTER WITH SR>s3 

1926 • 

1927 2046 32737777477 MVBp RB App SP2 SF1 SF 1 IF DB SOURCE • SPg.PTrt 

1928 2047 37322221737 MVBo JS8 PShm SPO SR4 EXACTLY 3 TOS REGS FILLED 

1929 2050 336060Q2065 RA JMP Mvg"? «D ZERO EXIT IF CMTeZERUf (0,0) OR 

1930 « (DB,0) =*EAD, CCE IF CMPR 

1931 2051 2J3023bg 00 3 S M JSB MVW1 SPl UNC GET DELTA, ADJUSTED CNT 

1932 2052 37762142321 j S p QB^C Fl IF DB &EL TEST STARTING 

1933 2053 30326142063 RD JMP Mv VJ SPn Fl ANO ENDING SOURCE APDRS, 

1934 # SPo„SOURCfc STARTING ADDR 

1935 2054 0J357777217 RBR ADD CTRL PB CTR-PB-BANK IF P8 PEL 

1936 205? 36607777760 PL PB SUB «D ASSUME PL-PB POS, <16« 

1937 2056 26777773773 RB OPND Apo SR \ PP REL ENDING WORD AUOh 
1939 2057 16764777770 RD U3US UBNT CK PL-PB>=REL tNU ADOR 

1939 , 2060 3*3377^3777 RB ADD SRi SPO PB REL STARTING WORD ADDR 

1940 2061 1676477777ft RD UBUS UBNT CK PL-PB>=REL START ADDR 

1941 2062 36337777775 SPO PB ADD SPO SPO-PB SOURCE STARTING ADO» 

1942 2063 14157777017 MVB-* CTRL ADD SBR ABS «BS-BAN K.SOURCE BANK 

1943 2064 31722212321 RC JS8 DB0C SP2 SRNZ TEST TARGET BOUNDS (2C JMP) 

1944 206S 007660b2i3g MVBc; CIR JMP CMpo BIT* CMPB IMSTR IF C1R(B)=1 

1945 » 

1946 * ENTRY POINT FOR Mm20 MOVE BYTES LoOP 

1947 • 

1948 2066 317753^3777 MB1 RC CRS SRl 

1949 2067 25763377316 UBUS SP3 XOR HBF SFi IF IB IN FIRST TARGFT 

1950 • 

1951 » MB20 MOVES avTES FOR MVB AND MVBW INSTWS, MVb IF VJF2, 

1952 » TESTING FOR INTERRUPTION AND COMPLETION, 

1953 » RAsCOUNT, PRsSOURCE PTR, RC«TARGET PTR, 
195<» » SP0*SOURCE ADDR, ROsTARGET ADDR, SP3 = DELTA, 

1955 » 

1956 207o 37177567175 MB2f> SPO ADD BUS ROA F2 READ SOURCE wORD 

1957 2071 3376600220? RA JMP D031 ZERO DONE MV3I DEL F*OM STACK 

1958 2072 3«J735163777 RB CRS SRl sP2 F2 SP2 NEG IF RH OF SOURCE 

1959 2073 37766323000 JMP IRD TEST JMP IF MV3 AND INT PENDING 

1960 2074 256574*7772 RB SP3 ADO wB EVEn UPDATE SOURCE PTR 

1961 2075 26317760777 OPND ADD LRZ SPl UNC SOURCE WAS LH 



PA8E 39 



ADDRESS CONTENTS 



LAB| RBUS SBUS FUNC SHFT STQR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2;06 PM 



1962 
1963 
1964 
1969 
1966 
1967 
196B 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1983 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
199B 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
200B 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 



2076 
2077 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2120 
2121 
2122 
2123 



263177^4777 
30177567577 
3&7663P21H 
lb761600100 
167637 73774 
16302777014 
15761600600 
27763417776 
377663*2124 
33766002127 
3b766322124 
25763127776 
2b33777777«=l 
2b63742777l 
01317765777 
267377&1777 
267377U777 
30177777557 
30173377434 
25667:33747-* 
2b617777<*5(i 
37766362070 



2124 256477*757? 

2125 37766302201 

2126 377663&3000 



2127 24766l32iin 

2130 2b64777757? 

2131 37346*213013 



2132 30177777577 
213.1 317753^3737 
2134 25763377316 



2135 


33766002202 


2136 


37766323000 


2137 


25737427771 


2140 


263177&0777 


2141 


263177^4777 


214? 


3 7177777175 


2143 


2b3551»2477 


2144 


2b617777450 


2145 


14763027772 


2146 


25337777775 







OPND 


ADD 


RRZ 


SP1 










RD 


ADD 




mUS 


ROD 


F2 






SP2 


JMP 


MB*? 






UNC 






CTRH 


ROMN 






oooioo 




SP1 


UBUS 


AND 


SRl 










SP1 


UBUS 


CAND 




spi 


CCB 








CTRH 


ROMN 






000600 




UBUS 


cc 


AND 
JMP 


M&pi* 






NZRO 
UNC 






RA 


JMP 


MB36 






ZERO 


MB2<| 




SP2 


JMP 


M8?4 






TEST 


MB2? 


UBUS 


SP3 


XOR 








POS 




SPO 


SP3 


Ann 




SPO 








RC 


SP3 


ADD 




WC 




EVEnj 






SP1 


ADD 


RLZ 


SP1 




UNC 






OPND 


ADD 


LL7 


SP2 




UNC 






OPND 


ADO 


RR7 


RP? 










RD 


ADD 




PUS 


WHO 






SP1 


SP2 


IOR 




BUS 


D6TA 






RA 


SP3 


SUB 




PA 


SF1 


NFl 




RD 


SP3 


ADD 
JMP 


M8?0 


WD 


CF1 


UNC 


» 


MVBW 


INT , 


AND NORM COMPLETION 


(MVB 


MB?/ + 


RB 


SP3 


SUB 
JMP 

JMP 


DOTS 
IRD 


PR 


POP 


TEST 

UNC 
UNC 


« 


MVBW 


BOUNDS VIOLATION 






MB2* 




STA 


JMP 


MBP1 






NEG 



ft 
ft 
CMP, 



CMPt 



RB SP3 SUB RB POP 
JMP BNDV CTRL 



SRN7 



ENTRY POINT FOR CMPH COMPARE BYTES LOOP 



RD 
RC 
UBUS SP3 



ADD 
CRS 
XOR 



BUS 



SRl 



ROD 
CCE 



SOURCE WAS RH 
READ TARGET WOHJ 
UBUS.SP2I JMP IF MVB INSTR 
ISOLATE UPSHIFT BIT 
UPSHIFT IF LOWER ALPHA 

AND UPSHIFT BIT ON 
ISOLATE CCF 
CCFsCCB OF SOURCE? 
NO, DONE MVEW 
ERROR IF CCUNT=2ERO 
JMP IF MVBW AND INT PENDING 
UPDATE. SOURCE ADDR IF 

LASsT BYTE OF SOURCE WORD 
UPDATE TARGET PTR 
SHIFT SOURCE IF TA«G MS L* 
TARGET WAS RH 
TARGET WAS LH 

WRITE UPDATED TARGET WORD 
UPDATE COUNT 

UPDATE TARGET AUDR IF BYTE 
WAS LAST BYTE OF TARG WORD 



adjust sojrce: ptr and STK 

DONE MVBW I DEL FROM STK 
JMP IF INT PENDING 



NO ERROR IF PRV 

ADJUST SOJRCE PTR AND ST* 

CTR-Ol rHNOV INT < 2C JMP) 



READ FIRST TARGET WORD 

SET CCE IN CASE CNT«0 

SF1 IF ih IN FIRST TARGET 



CMPB COMPARES BYTES UNTIL NOT EUUAL OR CNTsO FOR CMPB INSTR. 
IT ENDS WITH CC* SET ON LAST (TARGET MINUS SOURCE) SCANNED IF NOT 
EQUAL, OR WITH CCE SFT IF ALL TARGET AND SOURCt BYTES ARE EQUAL. 
RAsSlQNED COUNT, RB=SOURCE BYTE PTR, RETARGET BYTfc PTR, 
SPQsSOURCE ADDR, RDsTARGET ADDR, SP3sOELTA. 



RA 



JMP Dom 



ZERO 







JMP 


IRn 






TEST 


RC 


SP3 


ADD 




$P2 




EVEm 




OPND 


ADD 


LRZ 


SP1 




UNC 




OPND 


ADD 


RRZ 


SP1 






SPO 




ADD 




PUS 


ROA 






SP3 


CRS 


SLl 


CTRI. 


SF1 


NFl 


RD 


SP3 


ADD 




»D 


CF1 




RB 


CTRL 


XOR 








EVEM 



SPO SP3 ADD 



SPO 



IF CNTsO DONE, DEL FR STK 

JMP IF INT PENDING 

SPS-UPDATED TARGET PTR 

TARGET WAS LH 

TARGET WAS RH 

READ SOURCE WORD 

CTR(b).SP3(0) 

UPDATE TARG AIJDR IF FI 

UPDATE SOJRCE ADDR IF 

LAST BYTE OF SOURCE WORD 



PASE 40 


ADORE 


2017 


2147 


2018 


2150 


aois 


2151 


2020 


2152 


2021 


2153 


2022 


2154 


2023 


2155 


2024 


2156 


2025 


2157 


2026 


2160 


2027 




2028 




2029 




2030 




2031 




2032 




2033 




2034 




2035 




2036 




2037 


2161 


2038 


2162 


2039 


2163 


2040 


2164 


2041 


2165 


204? 


2166 


2043 


2167 


2044 


2170 


2045 


2171 


2046 


2172 


2047 




204B 




2049 




2050 




2051 


2173 


2052 


2174 


2053 


2175 


2054 


2176 


2055 


2177 


2056 


2200 


2057 




2058 




2059 




2060 




2061 




2062 




2063 


2201 


2064 


2202 


2065 


2203 


2066 


2204 


2067 


2205 


2068 




2069 


2206 


2070 


2207 


2071 


2210 



LA8 L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, l*7t>, 2106 PM 



2565742777? 
261777«»0637 
261777^4637 
2*667777773 
30177777577 
26767417754 
35626302135 
25677777773 
25647777772 
377663&220? 



37777777477 
0*761400010 
3/7663b2240 
3*7222*1737 
335376^4417 
377623&1737 
2J3023&2321 
30137777577 
3361753Q777 
377663&221P 



3/7623&2217 
2b7630l7774 
3S6463&2173 
30763007514 
37777777537 
01777777017 



37762301735 
00775123377 
3/777777577 

377661&0644 
3777775777T 

02311527764 
377663O2202 
23777777057 



« 

scu 
sew 



SCWi 



D03«; 
D03) 



D05< 



RS 



SP3 ADD 



RB 



EVEN 





OPND 


ADD 


LRZ 


nus 


OPND 


UNC 




OPND 


ADO 


RRZ 


BUS 


OPND 




RA 


SP3 


SUB 




PA 








RD 


ADD 




BUS 


ROD 




SP1 


OPND 


SUB 






CCA 


NZRO 




SP2 


JMP 


CMPH 


PC 




UNC 


RA 


SP3 


ADO 




PA 






R.B 


SP3 


SUA 

JMP 


D031 


PB 




UNC 



UPDATE SUJRCE PTR 

SOURCE WAS LH 

SOURCE WAS RH 

UPDATE COJNT 

READ NEXT TARGET WORD 

CCA ON TARGET-SOURCE BYTES 

JMP, RC:_TAR(3 PT«, IF EQUAL 

MOVE COUNT, SOURCE PTR 

BACK TO. UNEQUAL BYTES 
DONE; DEL FROM STACK 



SCU, SCW 
ALSO ENTRY FOR MFTO AND MTDS 
SCAN UNTIL TERMINAL OR TEST BYTE FOUND. 
SCAN WHILE STRING.TEsT BYTE. 
LAST+1 SOURCE MUST BF IN LEGAL MEMORY, 
RAsTERMINAL BYTE, TEST BYTEI RBsSOuRCE BYTE PTR, 
ENTER WITH SR>s2, PADDsClP < 1 ? J 1 5 ) 





ADD 






SF1 




PADD 


ROMN 






OOlO 


ZERO 




JMP 


MFTO 






UNC 


RB 


JSB 


PSMM 


SP2 




SR4 


RA 


ADD 


RRZ 


SP3 


SF2 


SRL3 




JSB 


PShM 






UNC 


SM 


JSB 


oBac 


SP1 




UNC 


RD 


ADD 




PSPO 


ROD 




RA 


ADD 


LR7 


RD 




NF 1 




JMP 


SCU] 






UNC 



SCAN WHILE LOOP 
RBsByTE PTR, SPO' 



SP1 



SP1 



SF1 IF SCJ OR MFDS 

JMP IF MFDS OR MTOS 
SPc'-SOURCE BYTE PTR 
RH SR3-TEST F>YTt, SF£ 
EXACTLY ? TOS RtOS FILLED 
CHECK yoU^DS ON START ADOR 
READ FIRST WORD 
RH RD_TERMINaL dYTE 
JMP IF SCJ 



-ORD ADDR, RDsTErMInal hyTE, SP3«TEST BYTE 



GET SOURCE BYTE 
SOURCEaTEST BYTE? 
YES» UPDATE BYTE PTR, JMP 
SCRY IF LAST SOURCE = 

TERMINAL HYTE, ELSE CCr'Y 
SET CCB OM LAST BYTE 





JSB 


GSCB 




UNC 


SP3 


XOR 






NZRO 


SP2 


JMP 


SCW1 RB 




UNC 


RD 


xdr 

ADD 




SCRY 

CCRY 


ZERn 


SP1 


ADD 




CCB 





DELETE FROM STACK? EXIT ROUTINE FOR ALL MOVE IWSTRS 

D05SJ S.S-CIR(13J 15) , ENTER WITH sRs<» AND PADDssDEC+8 J PRV ONLY 

O03SJ S.S-CIR(14t 15) , ENTER WITH sRsg 

0031: " •• " ENTFR WITH S R > = 3 



CIR 



JSB 


PULl 




UNC 


ENTER 


WITH SR*2 


CRS 


SRl 


lbf 


POS 


ENTER 


WITH SW>=3 


ADD 




POP 




S_S-i 


IF CIR(15) 


JMP 


DDEL 




F? 


S.S-2 


IF CIR( 14) 


add 






NEXT 


DONE 





PADD ROM SP1 7764 POS 
JMP D031 UNC 

SM ADD CLSR 



ENTER wlTH SRs4 , P ADDsSDEC+B 

JMP IF SDEC<4 

ELSE CLSR, (SPl=SDEC-4) 
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ADDRESS CONTENTS 



tA8| RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AiiQ 13, 1*76, 2106 PM 



2072 
2073 
2074 
2075 
2076 
2077 
207B 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
209* 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
210* 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2U8 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 



2211 01467757776 



UBUS SP1 SUB 



SM 



NEXT 



S„S-SP:t-4, DOME 



2212 
2213 
2214 
2215 
2216 



2217 
2220 
2221 
222? 
2223 
2224 
2225 



37762362217 
30763007514 
25763017534 
37766362201 
356463*221? 



23767U7775 
37346263013 
32736427777 
26317700777 
26317724777 
37136707575 
37766363000 



2226 


3376600220? 


2227 


223023*1737 


2230 


03357567617 


2231 


343063O2021 


223? 


14157777417 


2233 


03357777417 


2234 


16157777017 


2235 


343223*2353 


2236 


14157777417 


2237 


377663*2023 



2240 317622^173? 

2241 1630223173? 
224? 3/1767?2l77 
2243 377662*3117 



# 
SCUi 



ft 
ft 
ft 
ft 
ft 
ft 
osca 



ft 

MVB t 



MFTO 



SCAN UNTIL LOOP 

RBsBYTE PTR, SPOsWORD AODR. RD*TErMInAL BYTE, SPS^TEST BYTE, RC«STA 



SP1 
SP1 



RD 
SP3 

SP2 



USB 
XOR 

XOR 
UMP 
JMP 



GSC9 



D03S 
SCU1 PB 



UNC GET SOURCE BYTE 

SCRY ZERO SOURCE»TERMINAL BYTE? 

CCRY N2RO SOURCEsTEST BYTE? 

UNC YESI DONE, DEL FRCW STACK 

UNC NOl RB. UPDATED PTR 



OSCB SUPPLIES SOURCE BYTES IN RH SP1 FUR SCU AND SCW INSTRS, 
SETS CCB, TESTS FoP INTERRUPTS PENDING AND IF MPRV SOURCE AUD«>SM, 
SP0«WORD ADDR, RBsBYTE PTRI UPDATED PTR RETUWNLD IN SP2. 
IF INTERRUPT RC LOADED INTO STA BKFORE TkANSFERJNG TO IRQ. 



SPO SM CAD 

JMP 

RB INC 

OPND ADD 

OPND ADO 

SPO INC 

JMP 



NCRv ADDR>aSM+l 

BNDV CTRL NPRV YESI CTR_0, BNDV IF NPRV 

SP2 EVEN UPDATE BYTE PTR 

LRZ SP1 RSB SOURCE WA5> LH, RETURN 

RRZ SP1 TEST SOURCE WAS RH 

PSPO ROD RSb READ NEXT WORD 

IRO UNC JMP IF INTERRUPT PENDING 



MVBL, MVLtf 
MOVE WORDS 08 PEL SOURCE TO DL REL TARGET, 
MOVE WORDS DL REL SOURCE TO DB REL TARGET. 
RAS+-CNT, RB*SOURCE PTR, RETARGET PTR» 
INITIAL ENT»Y AT MAB* OR MDS| 
FZ IF MVBL, SR«4, PAODaClR ( 12 S 15) , 



RA 


JMP 


D031 






ZERO 


DB 


JSB 


PSHM 


SP1 




UNC 


RBR 


ADD 




CTRL 


S 


F2 


DL 


JMP 


MVW4 


SP1 




UNC 


CTRL 


ADD 




SBR 


DB 




RBR 


ADD 




CTRL 


DB 




UBUS 


ADD 




SBR 


ABS 




DL 


JSB 


MVWS 


SPO 




UNC 


CTRL 


ADO 
JMP 


MVW5 


SBR 


DB 


UNC 



EXIT IF COUNT*ZtHO 

EXACTLY 3 TOS REGS FILLED 

CTR-S-BANK 

MOVE WORDS IF MVLB 

DB-BNK„CT^*S-BNK 

CTR-DB-6AMK 

ABS (SOURCE) 8ANK_0b-BANK 

MOVE WORDS (DB TO UL ) 

RESTORE D8-BANK 

CHtCK INT, DEL FROM STACK 



MFDS, MTOS 
MOVE WORDS FROM DATA SEG TO STACK 

RAbCNT, RB«DSEG (SOURCE) PTR, (S-?)sDSEG* t (S-3)aSTACK (TARGET) PTR 
MOVE WORDS FROM STACK TO DATA SEG 

RAsCNT, RBaSTACK jSOURCE) PTR, (S«2)sDSEC- (TARGET) PTR, (S-3)=DSFG^ 
INITIAL ENTRY AT SCU OR SCW, F\ IF MFDSI SR>=2, PADD«CIR ( 12 : 15 > 

FILL 4 TOS REGS 
SP1-DSEG# IF MFDS 
READ DST PTR 
MFDS AND MTDS ARE PRV 



RC JSB 


PUH 






SRL^ 


UBUS JSB 


PUL1 


SP1 




SRN4 


INC 


SL1 


'JUS 


ROA 




JMP 


TRP6 






NPRv 



PA9E 42 


ADORE 


2127 


2244 


2129 


2245 


2129 


2246 


2130 


2247 


2131 


2250 


2132 


2251 


2133 




213* 


2252 


2135 


2253 


2136 


2254 


2137 


2255 


2138 


2256 


2139 


2257 


2140 




2141 


2260 


2142 


2261 


2143 


2262 


2144 


2263 


2145 


2264 


2145 


2265 


2147 




2148 




2149 




2150 




215] 




215? 




2153 




2154 




2155 




2156 




2157 


226^ 


2158 


2267 


2159 


. 2270 


2160 


2271 


2161 


2272 


216 2 


2273 


2163 


2274 


2164 


2275 


216$ 


2276 


2166 


2277 


2167 


2300 


2168 




2169 


2301 


2170 


2302 


2171 


2303 


217? 




2173 


2304 


217* 


2305 


2173 


2306 


217S 


2307 


2177 


2310 


2178 


2311 


2179 


2312 


2180 




2181 





LAB| RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13i 1*76, 2:o» PM 



33766002206 
37536547777 
30317777417 
37762362355 
03357577417 
01326362260 

2*337777777 
261577/7017 
31617777777 
306223*2353 

31617777777 
306263^2263 

14157777017 
26157777417 
22302212353 
141577*7417 
377663*2206 
377663&3000 



3^317 
37766 
23177 
33777 
37536 
37527 
02761 
37766 
33766 
03357 
37766 



777417 
2*3117 
77777? 
b37777 
767777 
377777 
410010 
3<>2226 
002206 
567417 
362304 



31157777017 
26157777417 
373263*2254 

371767^2177 
263023*2355 
16737777777 
37176772 1 77 
26157777417 
313023&2355 
35326362253 



« 

MFOt; 
MFDp 
MFDi 



MTD- 



MTD: 



ra 


JMP 


DOSS 






ZERn 




INC 




SP3 




Fl 


RD 


ADD 




SP1 


SF2 






JSB 


DSFG 






UNC 


RBR 


ADD 




CTRL 


DB 


NF2 


SP1 


JMP 


MTr>S 


SPO 




UNC 


OB 


ADO 




SPO 






OPND 


ADD 




SBR 


ABS 




RC 


ADD 




RD 






RD 


JSB 


MVWS 


PC 




UNC 


RC 


ADD 




*D 






RD 


JMP 


MTD2 


PC 




UNC 


CTRL 


/•-OD 




SBR 


ABS 




OPMD 


ADD 




SBR 


DB 




OB 


JSB 


MVWS 


spi 




SRNZ 


CTRL 


ADD 




SBR 


08 


TEST 




JMP 


0055 






UNC 




JMP 


IRn 






UNC 



» 

tt 
« 
MABc 

MDS 



MABt 



MO St 



EXIT IF COUNTaZEWO 

SP3-1 (DELTA FOR MV LOOP) 

IF MTDS SP1»USEG#, SF2 

SET UP OSES 

CTR. OB-BANK 

JMP IF MT3S INSTR 

SPO (TARGET BASE) _ Db 

MBS (SOURCE.) BANK.OSEG BNK 

SWITCH PC AND RD 

MOVE WORDS 

RESTORE PC AND RD 

CHECK INT, DEL FROM STACK 

ABS (SOURCE) BNK.CTRsDB-BNK 

DB (TARGET) BANK.USEG BANK 

SPI (SRC 3ASEI.OBI 2C JMP 

RESTORE DB-BANK 

DONE* DEL FROM STACK 

JMP IF INTERRUPT PENDING 



MABS, MDS 
ALSO ENTRY FOR MVBL AND MVLB 
MOVE WORDS FROM DflTa SLG TO DATA *?EG 

RAs + -CNT| PB,RC*SOUPCE PTR AND OSE'G* | KD , ( SM ) = 7 AW3LT PTR AND OSEGo 
MOVE WOROS FROM ABS ADDR TO ABS AriOR 

RAa + -CNT| RC f RB*SOURCE BANK,ADDRJ ( SM ) , RDaTARGET 3ANK.ADDR 
ENTER WITH SR*<n PA!">n*CIR ( 12 t 15) 

SF2i SP1_0 IF MABS OR Mvl>L 
mABS,MVBLiMDS,MVL.B ARK PWV 
MEAD (S-4) 

SP3*DELTA FOR MV LOOP 
SPJ_1 IF CNT POS 
ELSE SP3.-1 

JMP IF MV9L OR MVLB 
EXIT IF C0UNTs7fc.R0 
CTK-DB-BAMh 
JMP IF MDS 

ABS-BANK„SOURCE BANK 
OB-BANK.TARGET BANK 
SPO (TARGET dASE)_0 

READ DST PTR 
SPI. TARGET DSEG» 
SP2-TARGET DSEG ADDR 
REuD DST s»TR 
DB-B«NK. TARGET BANK 
SPl-SOURCE OSEGw 
SPO-TARGET DSEG ADDR 





ADO 




SPI 


SF2 






JMP 


TRP6 






NPRv 


SM 


ADD 




TiUS 


ROS 




RA 


ADD 








NEG 




INC 




SP3 




UNC 




CAO 




SP3 






PADD 


ROMN 






oolo 


NZRO 




JMP 


MVBL 






UNC 


RA 


JMP 


DOSS 






ZERO 


RBR 


ADD 




CTRL 


DB 


F2 




JMP 


M0S1 






UNC 


RC 


<iDD 




SBR 


ABS 




OPND 


«HD 




SBR 


DB 






JMP 


MFD3 


SPO 




UNC 




INC 


SLl 


BUS 


ROA 




OPND 


JSB 


DSFG 


SPI 




UNC 


UBUS 


ADD 




SP? 








INC 


SLi 


BUS 


ROA 




OPND 


ADD 




SB» 


DB 




RC 


JSB 


DSEG 


SPI 




UNC 


SP2 


JMP 


MFD2 


SPO 




UNC 



PA9E 43 



ADDRESS CONTENTS 



LA8| RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2S06 PM 



2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
219S 
2196 
2197 
219S 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 



2313 
2314 
2315 
2316 
2317 
2320 



2321 
2322 
2323 
2324 
2325 
2326 
2327 
233o 
233) 
2332 
2333 
2334 
2335 
2336 

2337 
2340 
2341 
234g 
2343 
2344 



2345 
2346 
2347 
2350 

2351 



22617777770 
16766777775 
34766777770 
26617777770 
16766777775 
34766707770 



357777 
226177 
0J3577 
0J7674 
22767b 
227777 
347675 
377777 
307675 
347675 
306H7 
347665 
307666 
307667 



'3777 
7777ft 
/7417 
17616 
07762 
07777 
07776 
07777 
17774 
07770 
00000 
67776 
67774 
07774 



3b761b00OOl 
26777777316 
167777 '3337 
16737777470 
34766777776 
35766707774 



25657777772 
25637777771 
3U77777555 
26177727437 
25667417773 



DBW, 



DBWC CHECKS D8 REL STARTING AND ENDING WORD ADDPS 

AGAINST SM AND DL FOR MOVE INSTR. 

SP0«SM, RDeREL STARTING ADDR, OPNQ*CNT INC/DfcCR TOWARD ^ERO. 

DBWC RETURNS WITH A RANK1 RSB, 



RD 

SPO 

RD 

RD 

SPO 

RD 



» 

« 
DBBr 



« 
MWl! 



DB 



Ann 



UBUS 3NDT 



DL 
OPND 



BNDT 
ADD 



PD 



RD 



UBUS BNDT 
DL PNQT 



RSB 



FORM STARTING WORD ADDR 
BNDV IF SM NOT>«START ADDR 
BNDV IF START AUDR NOT>*DL 
FORM LAST WORD «DDR 
BNDV IF SM NOT>«LAST ADDR 
BNDV IF LftST ADDR NOT>sQL 



DBBC CHECKS DB REL STARTING, AND F'lDlNG IF NF2, BYTE AUURS. 
ABS STARTING WORD ADDR RETURNED IM RD, DB-BANK RETURNED IN CTR. 
SP2«REL BYTE ADDR, SPlsSM, OPND»CNT INC/DECR TOWARD ZERO IF NF2, 
IF SPLIT STACK < S-BANKODB-BANK , DB>Z, DB<OL) 

THEN BYTE ADDR CONVERTED DIRECTLY TO WORD ADDR AND RET» 
ELSE IF NOT(DL<»WORD ADDR<«SM> THfN ADD 32K TO WORD ADDR| 
IF NOT(DL<3WORD Aonw<«SM) AND NPRv THEN BNDV , 
IF NF2 THEM END AoDReWORD ADDR + SIGN ( J AD J CNT+BYTE PTK<l5))/2), 

SFj AND IF NOT(DL<»ENO ADDR<sSMj AMD NPRV THEN BNDV. 
DBBC MAY RETURN WITH A RANK1 RSB, 



SP2 

UBUS DB 
RBR 

UBUS RBR 

2 DB 
DB 

UBUS DL 



SPi 

RD 



RD 

DL 

RD 

UBUS DL 

SPI RD 

SPI RD 



ADD 

ado 

ADD 
SUB 

SUB 

ADD 

SUB 

ADD 

SU^ 

SU- 3 

ROM 

BNDT 

BNDT 

BNDT 



SRl 



oD 
CTRL 



RD 



SP2 t-OMN 
UBUS OPND ADD 

UBUS ADD 
RD UBUS ADD 
UBUS DL BNDT 
SPI SP2 BNDT 



SR] 



SP2 



DB 

S nZro 
CRRY 
RSB 
CRRY 
RSB 
NCRY 
CRRV 

100000 
F2 

NPRV 
PSB 

000001 
HBF 
FHB 
SPI 

RSb 



RD.ABS WORD ^DnR 

SPLIT STACK IF 3-UANK IS 
NOT THE SAME AS US-BANK 

SPLIT STACK IF ii<DB 

RETURN IF SPLIT STACK 

SPLIT STACK IF DB<DL 

RETURN IF SPLIT STACK 

SM>swORD ADDR? 

WORD AODR>sDL? 

AOD 32* IP ADDR>SM OR <DL 

BNDV IF NPRV AND 

ADDR<DL OR ADDR>SM, 
RETURN IF PRV OR F? 



BYTE PTR(15)+ADJ CNT 
REL ENDING WORD ADDR 
ABS tNDING WORD ADDR, SFl 
BNDV IF NPRV AND 

ADDR<DL OR ADDR>SM 



MVWS MOVES WORDS AND UPDATES PTRS, 

SP1»S0URCE BASE (ABS-BANK) f SPO*TaRGET BASE (DB-BANK), 
RAaNZRO CNT, RB*SQURCE PTR, RCsTArGET PTR, SR3sDElTA, 
RETURN IF INTERRUPT (RANK1 RSB) OP COUNT*ZERO, 



RB 
RC 
SPO 

RA 



SP3 

SP3 

RC 

OPND 

SP3 



ADD 
ADD 
ADD 
ADD 
SUB 



RB 

RC 

BUS 

RUS 

RA 



WRD 

DATA TEST 
NZRq 



UPDATE SOJRCE PTR 
UPDATE TARGEIT PTR 
STORE AT TARGET ADDR 

UPDATE CNT? ELSE UPDATE CNT 



PA0E 44 



ADDRESS CONTENTS 



UAB| RBUS SBUS FUNC SMFT sTOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2J06 PM 



3837 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2849 
2246 
2247 
224B 
2249 
2230 
2251 
2252 
2253 
2854 
2255 
2256 
2237 
2238 
2299 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
227 k 



2332 26667707773 

2353 32177777174 

2354 37766302345 



RA 
MVWs SP1 



SP3 
RB 



2355 
2356 
2357 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2370 
2371 



2379 
2373 



26137777177 
017777*2774 
16137777175 
26767117774 
3^306363121 
01766003121 
37177777155 
261712*0000 
377767*2457 
16136777175 
26766132372 
37167377175 
26317707777 



3/731721001 
015263631^0 



SUB 
ADD 
JMP 



RA 
BUS 



ROA 



MW]1 



PSB 



UNC 



AND RETJHN IF ZERO OR INT 
READ WORD FROM SOURCE 



« 

» 
« 

DSE^ 



» 
DSGs 



DSEG SETS UP DATA SEGMENTS FOR MFoSt MTDS 

AND MDS INSTRSl CHECKING FOR UNKN OR ABS DSEG. 

SP1»DSEG#, OPND»(2)»nST PTP| 

SP0,SP1 USED, Fl CLEARED! SP?,SP3 AND CTR UNAFFECTED. 

DSEG BANK RETURNED IN OPND, RANK! RS>B WITH SPl_DSEG ADD«. 



SP1 
SPO 
SP1 



SPO 



SPO 



SPO 



F2«0 



OPND ADD 
SP1 ADD SL1 
UBUS ADO 
OPND CAD 

JMP 
SP1 JMP 

ADD 
OPND POM I 

INC SLl 
UBUS INC 
OPND JMP DSG3 

CAD 
OPND ADD 



BSPO ROA 



BSPO ROA 



DSTV SP1 
DSTV 



NCRv 

UNC 

ZERO 



BUS WRA 
PUS 020000 

CF1 
RSPO ROA 

NEG 
BUS ROA 
SP1 RSB 



READ DST -ENGTH 

USEG»« # 4 

READ AUR-LENGTH/4 

QSEGa >* OSTL+1 

YESI SP1.0, DSTV (2C JMP) 

ALSO DSTV IF DSEG* ■ 

RETURN AUR-LENGTH/4 

TO MEM WITH R BIT SET 
CF1 IN CASE ABS TRAP 
READ ADDR 
JMP IF DSEG ABS 
READ BANK 
SP1.USEG ttODRl RETURN 



IF MDS, CTR*o 
ROM 



IF MFTD SO NO fNT CONDITION IS CLEARED 
SP2 121001 ABS DSEG LABEL*3<»,1 

SP1 JMP INT7 SP3 UNC SP3-DSEG*, TRAP 
DSG2 IS MODIFIED BY A PATCH (AFTER SEC 0-7 TO PROPERLY 
COMPUTE PARITY), IN MDS DB-BNK. TARGET BNK BEFORE SECQNO 
TRIP TO. DSEG, THE PATCH RESTORES DB-BNK FROM CTR IF MDS AND 
EITHER DSEG IS ABS, BEFORE ExlTlNfi To 1NT7, MPS CAN STILL EXIT 
TO. DSTV, THROUGH riSEG, WITHOUT RESTORING DB-ttNK, THIS PATCH 
SHOULD BE REMOVED IF IT BECOMES NECESSARY TO RF.PLACE SECTOR 4/ft} 
AN08 CTR (INSTEAD OF DB-BMK)_TARG BN« &2310 AND INSERT 2L AFTfcfc 
2311 TO EXCHANGE CTR AND DB-BNK TO COMPLETELY Fix THE PROBLEM. 



4L 2374-7 USED Bv 0SG2 PATCH, INCL SECOND PARITY SEC */S 
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ADDRESS CONTENTS 



LAB L KBUS SBUS FUNC SHPT STOR SPEC SKIP 



COMMENTS 



FHI, AUG 13, 1*76, 2106 PM 



2275 

2276 

8277 

2278 

2279 

2280 

2261 

2283 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2290 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 



2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2410 



2*11 
2412 
2413 
8414 
2415 
2416 
2417 
2420 
2421 



37177777360 
025377 '5777 
243377^4777 
0*728221737 
37302362705 
26777527477 
16217757777 
2&766U27U 
2&2133&7335 



36327377417 
0*764002433 
02167777360 
37302211744 
23767777302 
266261*2527 
37766162441 
2460236267? 
34726133077 



ft 
» 
ft 
ft 
ft 
» 
ft 
» 
« 
ft 
« 
« 
« 

» 

&24nl 

LLB, 



SECTOR 5 
LLBLt SCALt PCAL, SXIT, EXIT 
IXIT/PCN/LOCK/UNLK 
DISP/PSDB/PSEB 

SUBROUTINES! STMK, CL^B, SSEG, PWK 
HALT, PAUS INSTRS! STOP, WAIT, SYSH ENTRIES 

LL3L 



PL 



ft 

SCAi 

PCA|. 



PCL- 



LABEL! PADD ■ N ■ CIR<8:15> 


ADO 




*US 


ROP 


PAOD ADD 


RLZ 


SP3 




STA ADO 


RRZ 


SPO 




PADD JSB 


PSHM 


SP? 


SR4 


JSB 


CLAB 


SPl 


UNC 


OPND ADD 






SF1 P05 


UBUS AOD 




PUSH 


NEX 



SP3 JMP CLA? 



SPO 5P3 IOM 



NEG 
PUSH FHB NEXT 



READ STTL AT PL 

SP3(0J7).N 

ISOLATE SEG* FROM STA 

SP2-NI EMPTY ONE TOS REG 

SP1-OI CHECK STTL 

SF1I EXTERNAL LABEL? 

YESI PUSH LAbEL, DONE 

STTV(CLAP) IF ILL LOCAL LBL 

hOWM AND PUSH EXT LBL, DONE 



SCAL, PCAL 
LABEL ON TOS IF N«0, ELSE AT PL-N| PAOD = N » r,IR(BS15) 
SCAL PATH: PCLO IF N«»0, oCL], PCL2» h CL5 

PCAL PATHJ PCLO IF NsO, PCLl , PCL3 IF EXTERNAL, PCL* 

FETCH LABEL, EMPTy TOS, CHECK FOR STACK OVFL, IF PCAL STMK 



PL 



YES 



SF2 SCALI SF2, SPO _ -PB-1 

ZERO JMP IF N IS ZERO 

ROP READ LABEL AT PL-N 

S«NZ SP1-»| EMPTY TOS REGS 

HBF Z<SM OP WRAP AROUND? 

Fl RC-LABELl' STOV(EXll) IF 

F2 JMP IF SCAL 

UNC RD.STAf STMK 

NEG SP2-LABEL! JMP IF EXTERNAL 

ALL RUN INTERRUPTS, SCAL, PCAL AND I/EXlT GO THROUGH PCL5 (OR 6). 
RC (OR UBUS IF PCL6)sLABEL (DP), pD*RSTA, IF Fl PON, IF F2 
I/EXIT AND RAs»RQ RB«frS, FETCH RETURN INSTR, CHECK BOUNDS ON 
AND SET P, SET STa, TF PON CHECK eESTART EMB, IF I/EXIT SET Q,S, 



PB 


CAD 




RPO 


PADD 


JMP 


PCLO 




PADD 


SUB 




MUS 




JSB 


PSHA 


SPl 


SM 


SU* 






OPND 


JMP 


EX 11 


RC 




JMP 


PCL2 




STA 


JSB 


STMK 


RD 


RC 


JMP 


PCL3 


SP? 



2324 
2325 
2326 

2327 
2328 



242? 31761637777 

2423 36137777316 

2424 16764777760 

2425 36764777775 



ft 

PCLs RC ROMN 
PCL6 UBUS PB ADD 
PL UBUS UBNT 
SPO PB UBNT 



037777 
BSPO RNP 



MASK LABEL ADDR 
READ INSTR 
CHECK BOUNDS 
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ADDRESS CONTENTS 


2329 


2426 


37416777775 


3330 


2427 


305061 < »2755 


2331 


2430 


33437567777 


2338 


2431 


214377*7777 


2333 


243? 


324777Sf 777 


333* 






2335 






2335 






2337 


243^ 


3730220173? 


2339 


2434 


37777657577 


2339 


2435 


377623&1744 


2340 


2436 


2376713776? 


234\ 


2437 


30626362<s»i7 


234? 


2440 


30206362527 


2343 






2344 






2345 






««• WARNING i 


( 6) *»« TOS LOAD | 


2346 


2441 


3 1646 1-127 11 


2347 


244? 


20217777435 


2348 


2443 


2460636242? 


2349 






2350 






2351 






2352 






2353 






2354 


244a 


36767517560 


««• WARNING 1 


I 8) «** TOS LOAD 1 


2353 


2445 


33767b0777fi 


2356 


2446 


17206363013 


««« WARNING 1 


( 8) «»« TOS LOAD t 


235 7 


2447 


36137607310 


2353 


2450 


0«*762QU744 


2359 


2451 


2J3177A7764 


2360 


245? 


30202361751 


2361 


2453 


3/416777575 


236? 


2454 


0l4777b'777 


2363 






236* 






2365 






2366 






2367 






2368 


245S 


3776236J744 


2369 


2456 


21117777777 


2370 


2457 


2J767U7776 


2371 


246o 


37766212455 


237? 


2461 


217717/7774 


2373 


2462 


0«I647777476 


237* 






2375 






2376 






2377 






2379 






2379 






2380 


2463 


37127157774 





TNC 


su 


JMP 


RA 


fton 


Q 


add 


RB 


Ann 



LAS, RBUS SBUS FUNC SHfT STOR SPEC SKIP COMMENTS FRI, AUG 13, 1*76, 2J06 RM 

SPO TNC p SET P 

PWP ?5TA Fl STA..RD? J^P IF PON INT 

<i F? SET Q| IF NOT I/EXIT 

O NEXT REPLACt Q, DONE 

SM NEXT SET S, HONE 
« 

» FETCH LABEL FROM TOS FOR S/PCAL 
# 

PCLr JSB PULl ?Pl SKZ 5P1.0, FILL A TOS REG 

Ann pop srl? s.s-i, label now in uv. 

JSB PSmA UNC EMPTY ToS REGS IF SR Was >1 

I SM CAD NEG /:>sSM+1 AMD NO >*RAP AROUND? 

RD JMP PCL1 RC UNC YESI FTNISH LIKL S/PCAL m 

«D JMP EX T i t'USH UNC NO J REPLACE LARtL, STOv 
a 

# PUSH RETURN ADDR FOP SCAL 

NAME IS n LD NAME BEFORE PRECEDING PuSH, POP OR INCN 

PCL" 1 RC JMP CLAP RB NEG STTV(CLAP) IF £XT LABEL 

SPO P Ar>0 PUSH CF2 PUSH RET AD0*s ( :m IR + 1 ) P-pr_i 

STA JMP PCL5 WD uNC NOW hCs.La3£L, RD=sTa, F? = o 

• SXIT 

* ENTER WITH SH»1, PADD s -N s -CIr<8:15> 

SXI.t PL PB SUB POP NCRv BNDV IF P.<Pm 

NAME IS *,LO NAME BEFORE PRECEDING PUSH, POP OR InCN 

U8US RA SUB CRRV HNDV IF RET AQOR<PL-Pb 

SBUS JMP BNQV PUSH UNC REPL AMOR IF BNUV (CTR=0> 

NAME IS nLU NAME BEFORE PRECEDING PUSH, POP OR InCn 

RO »B AnD RSPO PNP SRZ FETCn SFT INSTRJ SR = 0? 

nZPo NO, EMPTY TOS IF NOO 

PAOD SM AnO SPl SP1-NEW swsSm-n 

PUSH UNC PEPL ADDR, CK Ntw SM 

SPO INC P POP 1.-ELLTE ADDR, SET P 

-iM NfcXT SET SM, nJNf 



DB 


Ann 




°ado 


JSB 


PSmA 


SM 


ADO 




RD 


JSB 

INC 


BNDC 


SP1 


Ann 




EXIT 






AT 1 


EXIT, 


WITH 




JSB 


PS-IA 


Q 


add 




SM 


CAD 






JMP 


EX to 


Q 


ROM 




PADD 


SUB 





* ENTRY AT EXIT, WITH PADD = N a ClR(B;l5) 

« 

EXI. JSB PS-IA UNC EMPTY TOS, START EXIT AGAIN 

Exir Q Ann ^spi ros read du, spi.q 

UBU3 SM CAD NCRy ;;>SMV 

SRN7 YESI E^'PTY TUS, START OVER 
177774 
UBUS PADD SUB RB SF 1 RB_Q-N-4 (RET S), SFJ 

# 

• FlsExlT, NFlsIxIT vJHfCM USES EXIT FROM Exll 

* SP1*!3, RBsRS, IF ixTT RAsPQ, IF ExIT OPNOxDQ 
» S-Q, FETCH RSTAiOP.x FROM STMK, DlSABLt LXT INTs, CK RS.RQ FOR 

• STOV, IF EXIT RA.RO AND CK RS.RO FOR STUN, IF USER EXIT CK RSTA, 
«■ 

exi 1 spi cad pspo pos nfi reap ret sta 
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2381 

2382 

2383 

2384 

2383 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2398 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2403 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 



ADDRESS CONTENTS 


2464 


26667777054 


2465 


01477777777 


2466 


32767S37762 


2467 


33767527762 


2470 


373063*2527 


2471 


37127377775 


2472 


266061»2476 


2473 


22767537772 


2474 


22767527773 


2473 


30766123120 


2476 


37127377775 


2477 


26637777777 


2500 


30537537777 


2301 


24763122770 


2502 


3776620311? 


2503 


24501737777 



UAB| RBUS SBUS FUNC SHFT STQR SPEC SKIP 



COMMENTS 



FRI, AUG I3i 1*76, 2106 PM 



2504 
2505 
2506 
2507 
2510 
251] 
2512 
2513 
2514 
2515 
2516 



2517 
2520 

2521 
252s 
2523 
2524 
2525 
2526 
2527 
2530 
2531 
2532 
2533 



303177^4777 
16771600100 
161377^0177 
26557777457 
2*7633 '4410 
16766002423 
3176230271? 
30777527777 
3/7662&3U7 
30773377311 
2*60613242? 



02537767457 
305023&267? 

37731720001 
30761410376 
377663*276? 
35766123122 
01766003123 
37346163067 
37731717401 
04361400020 
37766302762 
01766013067 
37731,714001 



ft 

# 
« 

» 
ft 

» 
ft 
ft 

EXIo 

ft 

EXIq 

fXln 



EXli 



IF EXIT RA.Q-DQt SR„0 

SM_Q 

RS>Z? 

NOI rq>z? 

YES* SP1-0, STQV 

READ DP 

RD„RSTA| JMP IF IXIT 

U8>RS? 

NO, DB>RO? 

YES» STUN IF G0IN3 TO NPRV 

READ RfcT X 

RC-DP 

SP3-RSTA 

USER CANNOT EXIT TO PRV 
OR CHANSE EXT INT BIT 

DlSAbLF EXT INTS SO THAT 
ANY PENDING INT OCCURS 
IMMEDIATELY AFTER I/fcXlT 

CKIN(» FOR NPRV STA TO PRV SEb, 
TCH INSTR, SET STA,P,U,S), 

ISOLATE SEG * 

READ CST PTR AT IF 

SEG#<192, ELSE AT l 
CF1I RESTORE X 
SF2? I/FXIT TO SAME SEG? 
YES, FNSH LIKE PCAL (RC ON 
SET UP SEG \ URUS) 

STA OR CST PHV? 
YES, NPRV CA\»T EXIT TO PRV 
TRACE OR 6BS (NF2 IF ABS) 
RD.RSTAf NO, FNSH LIKE PCAL 

TRACE, ABS, STTV, CSTV AND STOV SySH CHECKS (FlsPON). 

T,A ROsTARGET SEG*, SP1O0, NFg«ABS| FALL THRGH SYSHI SEG*<2 OR 

FROM I/EXIT, ENTER AT EXIn FROM PCAL/I^T AoS ON IQS 

STTV RDsSOURCE SEG*, SP1=0I ENTER AT EXI9 SEQ*<2 

CSTV RDsTARGET SEG«, SPlxQ, SP2>«0f ENTER AT ExiO SEG#<2 

STOV SP1»08 ENTEP AT EX11 ON ICS 





SPl 


OPND 
SPl 


SUB 
ADD 




RA 

SM 


CLSR 






z 


RB 


SUB 








NEG 




z 


RA 


SUB 








POS 








JMP 


EXH 


SPl 




UNC 


EXI? 


SPO 




CAD 




RSPO 


ROS 








OPND 


JMP 


EXI3 


PD 




NF1 




RB 


DB 


SUR 








n£g 




RA 


DB 


SUB 








POS 






RD 


JMP 


STUN 






POS 


EXI^ 


SPO 


OPND 


CAD 
ADD 




BSPO 
PC 


ROS 








RD 


Ann 




5P3 




NEG 




RD 


STA 


XOR 

JMP 


SLl 
TRP6 






POS 
NPRV 


ft 




STA 


ROMN 




STA 


137777 


* 
« 


OPNDbRX, 1 


»C*DP 


, RO»' 


5P3»RSTA 




ft 


IF EXTERNAL I/EXIT ! 


5FT UP SEG 


, CHE' 


ft 
ft 


ABS 


AND TRACE, 


FINISH AT PCL5 (Ff 




RD 


ADD 


RRZ 


•SPl 










UBUS 


ROM 






000100 






UBUS 


ADD 


LR7 


BSPO 


QOA 








OPND 


ADD 




X 


CF1 






RD 


STA 


XOR 


RRZ 




SF2 








UBUS 


JMP 


PCL6 






ZERO 






RC 


JSP 


SSEG 






UNC 






RD 


ADD 
JMP 


TRP6 






POS 

NPRV 




RC 


SP2 


IOP 






naF 








SP3 


JMP 


PCL5 


PD 




NFl 



PADD ADD 
RD JS9 



RD 

SP2 

SPl 



ROM 

ROMN 

JMP 

JMP 

JMP 

JMP 

ROM 

CPX1 ROMN 
JMP 

SPl JMP 
ROM 



SP3 

STMK STA 

SYSH 
CSTV 
STTV 
INTS CTRL 



CF1 



UNC 
UNC 



120001 
0376 NZRO 
UNC 
POS 
ZERO 
F2 

5P2 117*01 
CTRH C020 ZERO 
SYSH UNC 

INT5 NZPo 

SP2 114001 



CF1J SP3 - PARAM s N 
SET NEW STA AND 

STMK IF T,A FROM PCAL 
TRACE LABEL«s32,l 
SEG* IN RD 
SYS HALT IF 5EG*<2 
JMP IF CSTV (SPlsO) 
JMP IF STTV 

CTR-UI TRACE IF NOT ABS 
ABS LABEL*31,1 
CTR-OJ SYS HALT IF 

STOV OR ABS ON ICS 
ABS TRAP IF NOT STOV 
STOV LABEL. 24,1 
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ADDRESS CONTENTS 



LAB| RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AU« 13i 1*76, 2*06 PM 



3436 
2437 
24 3 9 
S439 
2440 
2441 
2443 
2443 
2444 
2445 
2446 
2447 
2443 
2449 
2450 
34S1 
3452 
2433 
2454 
2455 
2456 
2457 
2438 
2439 
2460 
2461 
2462 
2463 
246ft 
2465 
2466 
2467 
2468 
2469 
24^0 
24*1 
24-T2 
2473 
247* 
24^5 
2476 
2477 
24?8 
2479 
2480 
2481 
2482 
2483 
248* 
2485 
2486 
2487 
248B 
2489 
2490 



2534 16526363020 



2535 0*766012616 



UBUS JMP INTO SP3 



UNC 



2536 
2537 
254o 
2541 
2543 
2543 
2544 
2545 
2546 
2547 
2550 
2551 
2552 
2553 



2554 
2555 
2556 
2557 
2560 
2561 



21117777777 
2133W77771 
37351600010 
04723407056 
37766302554 
24521600376 
14177777775 
266062O3H7 
25)766002552 
26531302000 
377623&1724 
0476606305* 
30766132601 
1676601257? 



37176777175 
37731600030 
37177777175 
26637777777 
37127377175 
26157777617 



« 
# 
« 
» 
IXI 

« 
« 

ft 

« 

« 

ft 

ft 

« 

» 

• '-' 

ft 

« 

ft 

ft 

ft 

« 

ft 

» 

» 

« 



IXI, 



ft 
ft 
IXI? 



IXIT 
PADDeCIR(12ll5) » 

PADD JMP PCM 



ALSO ENTRY FOR PCN, 
NZRo 



PARAM„LA6EL 

LOCK AND UNL< 
JMP IF PCM. 



LOCK OR UNLK 



IXIT EXECUTED ONLY On THE ICs, BY INTERRUPT PROCEDURES 
OR THE DISPATCHER. FOR INTERRUPT PROCEDURES: IF RtDISPATCH 
REQUESTED (OIMOlal, IF DISPATCHER INTERRUPTED (Q)(0)*1 
AND QOQI, IF PSDB J0l—18)<>0, 

(l) dispatcher lmjnch of a process 

<2> INTERRUPTED PPOrESS, RETURN TO PROCESS 

(2A) INT PROC., RED1SPATCH REQUESTED BUT PSDd SO RETURN TO PROC. 

(3) INTERRUPTED INTERRUPT* RETURm To INTERRUPT 

(4) INTERRUPTED DISPATCHER. RETURN TO DISPATCHER 

<4A) INT DISP,, REOISPATCH REQUESTED BUT PSDb SO RETURN 
(5> INTERRUPTED PROCESS, REDISPATCH Rt'JUESTED SO START 
(6) INTERRUPTFD DISP, i REOISPATCH REQUESTED SO RESTART 



TO DISP. 

DISPATCHER 

DISPATCHER 



DETERMINE IXIT TYPE I 
INTERRUPT <SEG>1 AND 
STMK ELEMENTS ACCESSED 
IXIT PATHS! (1» f (2) 
(2A) 
O) 

(4) , (4A) 
(5) , (6) 



IF FROM EXTERNAL 
NOT IN DISPATCHER) 
FROM MEMORY EVEN 



SEND RIL. 
IF 0>SM, 



IXI6 

IXI6 
IXI6 



IXI2 
IXI2 



1x13 
IXI3 



IXI4 
IXI4 
IX 14 
IXI4 
IXI4 



a 

Q 
UBUS CPXl 



SPO 



STA 

CTRL 

OPND 

SP3 

OPND 

CPXl 
RD 

UBUS 



a n n 

ROM 

AND 

JMP 

ROMN 

ADD 

JMP 

JMP 

ROMI 

JSB 

JMP 

JMP 

JMP 



IXI? 



TRP6 
IXH 

IOPA 
INT4 
IXI6 
IXT3 



(*SP1 
e;P0 
CTRL 
SP2 

«P3 

flUS 
PD 

SP3 



ROS 

177773 
1 
CLSR ZERO 

UNC 
0376 
ROS 

NPRv 

ZERO 
102000 

UNC 

BIT* 

NEO 

NZRo 



SP1_Q 



READ DO, 

SPO-Ci-b 

CTR.b 

SR.OI IN DISPATCHER? 

YESI LAUNCH PROC, ASSUME prv 

tLSE SP3-0 IF SEG<2J SPg=o 

READ DEVICE* AT 0+3 

RD.DUf IXIT IS PRV 

JMP IF SES<2 (NO RID 

FORM RIL CMU 

SEND TO DEVICE ICTROOI 

JMP IF EXT INT <SP2»0) 

TO OR START i)ISP 



JMP 
JMP 



IF 
IF 



RET 
RET 



TO INTERRUPT 



(1) i 

SET 

SPO 
SPO 
SPO 



(2) i (2A) f GO 

S-BNK,Q,DL,Z 



INC 
ROM 
ADD 
ADD 
CAD 
ADD 



TO PROCESSI SP0»Ol-5, CTRsB 
FROM QI-, CLEAR ICS.DISP FLAGS 



OPND 



OPND 



OUS 


ROA 


SP2 


000030 


HUS 


ROA 


RC 




BSPO 


ROA 


SBP 


S 



REflU STACK Dfc» AT QI-<» 

K FOR CLEARING ICS,OISP 

READ STDB-BANK 

SAVE STDB 

READ DS AT QI-6 

SET S-BAN* 



PA3E 49 



ADDRESS CONTENTS 



LAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2J06 PM 



2491 
2493 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2S00 
2301 
2502 
2503 
2504 
2505 
2506 
2507 
2506 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 

2540 
2541 
2542 
2543 
2544 
2545 



2562 
2563 
2564 
2565 
2566 
2567 
2570 
2571 



2573 
2574 



2601 
2602 
2603 
2604 
2605 
2606 
2607 
2610 
2611 
2612 
2613 
2614 
2615 



371273 
267777 
164317 
371673 
267177 
3b7777 
211177 
262577 



77175 
7 7771 
77776 
77175 
77771 
77037 
77777 
67771 



2572 301777^3630 



01651777774 
26667777774 



2575 01176777777 

2576 16176777777 

2577 261577^7417 
2600 2644636246? 



0&1T67'4177 
3773160002? 
26177777177 
16677777137 
16651600002 
2676612257? 
313167777173 
21763017773 
26766012554 
2676601257? 
33117777157 
37177777437 
0142646^575 



ft 
» 
# 
ft 
«* 
» 
# 
IXI3 

# 
ft 



ft 
ft 
ft 
ft 
IX 1 4 



ft 
ft 
ft 
ft 
ft 
ft 
I XI* 



SPO CAD 

RC OPND ADD 

UBUS POM 

SPO CAD 

RC OPND ADD 

SP2 ADD 

Q ADD 

RC OPND ADO 



BSPO ROA 

Q 177776 

BUS ROA 
PL 

CCPX 

BSPl ROS 
2 UNC 



READ DDL AT 01-7 
C.S-2 (SAVfc 4W STMK 

IN CASE TRACE OR AdS) 
READ 07. AT QI-8 
SET DL 

CLEAR ICS,DISP FLAGS 
READ DQ f SP1.Q 
SET I, SKIP NEXT LINE 



IXI2 IS MODIFIED 3Y A PATCH (AFTER SEC 0-7 TO PROPERLY 
COMPUTE PARITY), -1 STORED AT QI-13 WHENEVER IXI2 IS ENTERED. 
THE OVERLAV OF 2557 CAN BE DONE IN LINE, AND THE THIRD PARITY 
LINE REMOVED IF SEC 4/5 IS REPLACED. 

(3) . (4) , (4A) | INTERRUPTED INTERRUPT! RD=DQ, SET OPND=DQ < 1 : 1 5 ) 

RD RD ADD SRi PUS OPND OPNU,DU ( 1 t 1 5 > 

(I) i (2) » <2A> , (3) i (4) , (4A) | SET RETURN Q,S IN RA,R9| SP1*Q, OPND=OQ 



SP1 ROM 
SP1 OPND SUB 



RB 177774 

PA 



RB.U-4 (RS) 
RA.Q-DO (RQ) 



(1) f (2) » <2A) , (3) f (4) , (4A) f (5) , (6) | SET DB-BNK,DB FROM (U+l),(Q+2) 
FINISH LIKE EXIT (SET UP RET SEG,STA,X) EXCEPT NO BOUNDS 
CHECKING ON RETURN Q OR S, SP1»Q, RA=RQ, RB=PS, XF1 



SP1 INC 
UBUS INC 
OPND ADD 
OPND JMP 



EXIl 



< : US 


ROS 


"US 


ROS 


SBP 


DB 


DB 





UNC 



READ DB-BANK 

READ D>3 

SET DB-BAMK 

SET DB, FINISH LIKE EXIT 



(2A> , (4) , (4A) , (5) , (6) I REDISPATCH REQUtSTED OR RETURN TO DISPATCHER 
SET DISPATCHER FLAG, RQ, RS ASSUMING (5) OR (6), READ <OI), AND IF 
NECESSARY IQI-18), To DETERMINE PaTHSI IXI2„<2A), IX 13. < 4 ) , ( 4A > , 
IXI4„<5) , (6) AND O.SP1.QI, <QI)«,0. 



MOD INC RR? BUS ROA 







ROM 




SP2 


000022 




OPND 


ADD 




BUS 


ROA 






UBUS 


ADD 




PA 


SDFG 






UBUS 


ROM 




RB 


000002 




OPND 


JMP 


IXI3 






POS 


RA 


SP2 


SUB 




BUS 


HOA 




PA 


Q 


XGR 








NZRO 




OPND 


JMP 


IXIJ? 






NZRo 




OPND 


JMP 


IXI3 






NZRO 




RA 


ADD 
ADD 




BSPl 
BUS 


WRA 
DATA 





SP1 JMP IXI4 



UNC 



HEAD QI ADDR 

SP2-1B 

READ (QI) 

SET DISP, RA.OI (RQ) 

RB-QI+2 (RS) 

JMP IF RET TO DISP 

READ (01-16) 

QsQl? 

YES! RET TO PROC IF PSDE> 

ELSE RET TO DISP IF PSDB 

(RE)START DISPATCHER 

SPl-QXt OD.O 

Q„QI NOW SINCE DISP SET 



PCN/LOCK/UNLK 
PUSH CPU#/LOCK/UNLOCK RESOURCE 
PADD * CIR(12H5)| INITIAL ENTRY AT IXIT 



PASE SO 



ADDRESS CONTENTS 



LA8| RBUS S8US FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2:06 PM 



2546 

3547 

2548 

2549 

25S0 

2551 

2552 

2553 

2SS4 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

257 9 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

3595 

2596 

3597 

2598 

2599 

2600 



2616 05355133304 



2617 
2620 
2621 
2622 

2623 
262<» 
2625 
2626 
2627 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2640 

2641 
2642 



3^7622*1737 
377662*3117 
14355143317 
162177&4777 

37177777126 
1*721200007 
26317447377 
377661&2623 
1*762407774 
377621*264) 
37177547146 
14173367434 
37177757437 
2*777532777 
37766362762 
01766000564 
20771777777 
37766362764 

35177777037 
37177707057 



2643 


0S1767'4177 


2644 


04341600030 


2645 


37311^77756 


2646 


26137777176 


2647 


3bf66032655 


2650 


01167777155 


2651 


37171700000 


2652 


26777417737 


2653 


14766003024 


2654 


37777757717 


2655 


007777^3377 


2656 


37177567155 


2657 


26176737437 


2660 


371670*7436 


2661 


01167767175 


2662 


26777757717 


2663 


16766002762 


2664 


15777457737 


2665 


37766362670 


2666 


01167777155 


2667 


37177767437 



PCN 


PAOD 


MOD 


CRS 

JSB 
JMP 


SRl 

PShm 
TRP6 


CTRL 


HBF NEG 

S«4 
NPRv 






CTRL 


CRS 


SRl 


CTRL 


HBF Fl 


it 




UBUS 


ADD 


RRZ 


PUSH 


NEXT 


LCK, 


X 




ADO 




BUS 


ROSA 






CTRL 


ROMX 




SP2 


C00007 






OPND 


ADD 
JMP 


LCK1 


SPl 


LBF NSMp 
F2 




SPl 


CTRL 


CAND 
JSB 


LCK2 




ZERO 
F 1 




X 




ADD 




«US 


WrtA Fl 




SP1 


CTRL 


IOR 
ADD 




«us 

BUS 


DATA UNC 
DATA NEXT 






STA 


ADO 

JMP 


SLl 

SYSH 




NEG 
UNC 






SPl 


JMP 


NOP 




ZERO 






P 


ROM 






177777 


9 






JMP 


PAUS 




UNC 


LCKp 




SP2 


ADD 
ADD 




PUS 
hUS 


ChL 

CMC RSB 



SFl IF LOCK OR UNLKJ 

CTw . 2 OR 3, OR 4 OR 5 

EMPTY one tos reg if PCN 

PCN,LOCK, JNLK ARE PRV 

CTR-1 OR 21 SFl IF UNLK 

IF PCN TOS.CPUwl OR 2, DONE 

READ {> ) , (X) . -1 
SP2-5 IF CPU#2 ELSE 6 
SP1-(X) 

READ (X) AGAIN If- -1 
IF UNLK INT OTHER MODS 
REQUESTING RESOURCE IF ANY 

LOCK} (X>„(X) »ORi CPU* 
UNLK I (X)_0, DONE 

SYSH IF EXT INT5 DISABLED 
DONE IF (Xlsg 
ELSE TRY LOCK AGAIN 
AFTEW INTERRUPT 

CRL-OTHER CPU'S MOD* 
(5 IF CPU*2 ELSE 6) 



DIS» 



DISP/PSDB/PSEB 
REQUEST RE-DISPATCH/DISABLE/ENABLE DISPATCHEW 
INITIAL ENTRY AT XCHDJ SP2 a PADD * CIHU2515) 
TO ENTER DISPATCHER, INTERRUPT HAULER (INT1) USED TO 
SET UP ICS THEN IXIT PATH (S) FOLLOWED. 



MOD INC RR7 
CPX1 RQMN 



ROM 

UBUS OPND ODD 

SP2 

SPl 



SPO 



DSP 



PSDr 



SPO 



UBUS 

SPO 



SPO 



JMP 
SUB 
ROM 
OPND ADD 
CTRL JMP 
ADD 

CIR ADD 

ODD 
OPND INC 

CAD 
SPl SUB 
OPND ADD 
UBUS JMP 
CTRH ADD 

JMP 
SPl SUB 

ADD 



PSi-iE 



INT1 



SRl 



SYSH 



PSD3 



9US ROA 
CTRL 000030 

SPl 177T56 
BSPO ROA 

Ot*>C 
BUS WRA 
BUS 100000 

CCE NZRo 

ZERO 

CCG NEXT 



BUS 
BUS 
BUS 

BUS 



BUS 
BUS 



LHF 

WRA F2 
DATA NEXT 
DATA NSmf 
ROA UNC 



CCG 
CCE 



NEXT 
ZERO 
BIT6 
UNC 



WRA 
DATA UNC 



READ QI A3DR 

CTR NZ*0 IF ON ICS 

(ON ICS IF IN DISP) 
SPl _ ~]8 

READ (QI-1B) , SPO.QI-IU 
JMP IF PSDB OR PSEB 

(QI ) .1000 00 

IF <GI-18>*0 AND NOT ON 

ICS THEN START DlSPATCHE" 
CCE IF START DISP, ELSE CCG 

SF2 IF PSEB, EL*>E PSDB 

PSDB| INCR (QI-18), DONE 
PSEB} DEC (01-18) 
NEAD (QI) IF (QI-18) 

WAS ] OR 0, ELSE DONE 
SYS HALT IF (QI-18) WAS 
SET CCE 

JMP IF NOT IN DISPATCHER 
CLEAR ANY START DISP, 

REQUESTS, SET CCG, DONE 



PAGE SI 



ADDRESS CONTENTS 



LAB t RBUS SBUS FUNC SHFT sTOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 3107 PM 



2601 
2605 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
261* 
2615 
2616 
2617 
2618 
2619 
2620 
262] 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
264) 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 



2670 
267i 



267a 
2673 
2674 
2675 
2676 
2677 
2700 
2701 
2702 
2703 
2704 



2705 
2706 
2707 
2710 
27H 



267661*2653 
377777&7717 



PSD? 



OPND JMP 
ADO 



DSP2 



CCG 



NEG 
NEXT 



231767 
371777 
234716 
161377 
211677 
234377 
371273 
2*1777 
203377 
371673 
361673 



77757 
77426 
00004 
77757 
77436- 
77777 
77755 
77437 
77777 
77755 
07435 



3&167777360 
267777U777 
3b767b37776 
37777707777 
246063&2521 



STM* 



STACK FOUR WORD MARKER 



SM 



INC 

ADD 

SM ROM 

UBUS ADD 



UBUS Q 
SM 

SPO 

STA 
P 

SPO 

SPO PB 



SUB 
ADD 
CAD 
ADD 
ADD 
CAD 
CAD 



BUS 


w«s 


BUS 


DATA 


SM 


000004 


BSPO 


WRS 


BUS 


DATA 


Q 




MSPO 


WHS 


BUS 


DATA 


SPO 




BUS 


WPS 


BUS 


DATA RSB 



TEST START DISP. IF 

RfcQl ELSE SET CCG, DONE 



PUSH X 
SM.AQDP D3 



PUSH DO 
Q„ADDR DQ 

PUSH STA 



PUSH DP, RETURN 



« 
CLAq 



CLA- 



CHECK STT LENGTH FOR LABEL FETCHES AND RETURN LABEL, 

SP1*0, SP3»STT#, OPNDs(PL)» LABEL AT PL-STT* RETURNED Irt OPND, 

VARIOUS INSTPS ENTER AT CLA2 WITH SPl*0 IF STTV DETECTED, 



PL SP2 SUB 
OPND ADD 

UBUS SP2 SUB 

ADD 

STA JMP 



PUS ROP 



RRZ 



EXI9 PD 



READ LABEL AT PL-STT# 

NEG LENGTH>sSTT«* 

RSB YES, RETURN 

UNC ELSE RD.STA, STfV(EXI9) 



SET UP CODE SEGMENTS, CHECKING FOP 0<StG#<sCSTL , PB,PL SET, 
F2_N0T(ABS). NSTA ( *STA WITH NEW SEG« AND M IF »RV OR CST M) 
RETURNED IN RD, AMRT„LENGTH/4 RETURNED IN SPS . EMTE'R WITH 
SP1»SEG#, SP0*0 OS 1, OPND« <SP0) «CSTP> RANK1 RSB WITH PB.QPND. 



RD„STA WITH NEW SEG# 

GET CSTL 

IF SEGf*<l9?, SP2-1 

ELSE SP?_2, SPl-SEGw-192 

SEG AND 19? DON»T EXIST 

SEG# • 4 

READ AMRT-LEMGTM/4 

SEG* > CSTL? 

YES5 SP1_0, CSTV(EXIO) 

READ BANK 

SAVE AMRT-LENGTH/<», SET R 



SAVE LFNGTH-1 

READ ADDR 

SET P8-BAMK 

CF2 

NSTA PRV IF PRV OR M SET 



2712 


24761777400 


*> 

SSEr, 


STA 


ROMN 






177400 


2713 


10617777774 


SP1 


UBUS 


ADD 




»D 




2714 


26137777177 




OPND 


AOD 




espo 


ROA 


2715 


37736437775 


SPO 




INC 




SP2 


ODD 


2716 


013H777S00 




SPl 


ROM 




SPl 


177500 


2717 


1P766003128 




UBUS 


JMP 


CSTV 




ZERO 


2720 


017777< r 2774 


SP1 


SPl 


ADD 


SLl 






2721 


1613777717S 


SPO 


UBUS 


ADD 




BSPO 


ROA 


272? 


26767117774 


SP1 


OPND 


CAD 






NCRy 


2723 


373063O2522 






JMP 


EX10 


SPl 


UNC 


2724 


37316777775 


SPO 




INC 




SPl 




2725 


16136777177 




UBUS 


INC 




BSPO 


ROA 


2726 


267312c'0000 




OPND 


ROM I 




SP2 


020000 


2727 


16761607777 




UBUS 


ROMN 






007777 


2730 


16777772776 


UBUS 


UBUS 


ADD 


SLl 






2731 


3722737777ft 


UBUS 




CAD 




PL 




2732 


37176777175 


SPO 




INC 




BUS 


ROA 


2733 


26157777217 




OPND 


ADD 




SBR 


PB 


2734 


35777522437 




SP2 


ADD 


SLl 




CF2 POS 


2735 


306U300000 




RD 


ROMI 




RD 


100000 


2736 


37167377154 


SPl 




CAD 




BUS 


WRA 


2737 


35177537437 




SP2 


ADD 




BUS 


DATA NEG 



SET R IN CST ENTRY 



PA8E 52 



ADDRESS CONTENTS 



LAS L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2:07 ^M 



8656 

2657 

265 8 

2659 

266 
2661 
2662 
26A3 
2664 
2665 
2666 
2667 

266 8 
2669 
2670 
2671 
2672 
2673 
267ft 
2675 
2676 
2677 
2678 

267 9 
2680 
2661 
2682 
2663 
26R4 
26SS 

26e§ 

2 68 7 

2689 
2 68 9 
2690 
2691 
2692 
2693 
269ft 
269S 
2696 
2697 
2698 



2740 26237777400 

2741 26757707777 



PL 



2743 


37157777017 


2743 


057767U477 


274ft 


16176777177 


2745 


37731721401 


2746 


26176777177 


2747 


161777^7157 


2750 


06177707437 


2751 


26766022765 


2752 


37511700000 


2753 


167777^3037 


275* 


3S5263&3033 



2755 
2756 



06761410004 
37777757777 



2757 


377662*3117 


2760 


20411777777 


2761 


1S>361120600 


2762 


15761200640 


2763 


15763366036 


2764 


377662&3U7 


2765 


37357607761 


2766 


377623t»l74ft 


2767 


37772377777 


2770 


37770327J77 


2771 


043663&3001 



» 
» 

o 

PWR 



« 

PW2 

« 
# 
» 
o 

ft 

HALT 
STOr 

WAIt 
SYSm 

PAU«; 
CPRe 



OPND ADD 
OPND ADO 



PL 



SF2 



RSB 



SET PL AND Fg IF NOT ABS 
PB.ADDR, RETURN 



POWER FAIL AND PO^fFR ON INTERRUPTS! SAVE FF IF PWF, 
ABS-BNK.,0, Fl.lt READ ( Z I + 1 ) AND STORE CPX2 AT ZI + 1. 
IF PwF RETURN! ELSE STA.100000, ExIT TO WAIT IF HALTED 
WHEN PWF OR SET UP PQN INTERRUPT *F RUNNING WHtN °WF, 





ADD 


MOD 


INC 


UBUS 


INC 




ROM 


OPNO 


INC 


UBUS 


ADD 


CPX2 


ADD 


OPND 


JMP 




ROM 


UBUS 


ADO 



RRZ 



CPRS 



SBR 


ABS 




SF1 


BUS 


ROA 


SP2 


121401 


BUS 


ROA 


BUS 


WRA 


BUS 


DATA RSB 




EVEN 


STA 


100000 



SRl 

SP? JMP INT? SP3 



CCPX 



UNC 



ABS-BANK.O 

SF1 

READ ZI 

PON INT LABEL=35,1 

WFmD (ZI+15 

WHlTfc CPX2 AT 21+ 1 

RETURN IF PWF 

HLT IF Hl_T WHEN PWF <SR*f>) 

CLR ITROCtCC 

SET RUN 

RARAMsLABELl TRAP 



CHECK AUTO RESTART AFTER SETTING ijP POtv INT PROCEDURE 



CPX2 ROMN 
ADD 



0004 NZRO 

NEXT 



RUN IF RESTART ENABLED 
ELSE STOP (PON IS PRV) 



HALT, PAUS 
SPECIAL CONDITIONS RESULTING IN H/.LT ENTER AT STO», WAIT OR SYSH 



JMP TRPb 

P ROM 

CTRH ROMX 

CTRH ROMX 

UBUS CTRH XOR SWAB 

JMP TRP6 
SR t<)D 

JSB PS-4A 

^FJPC 

p NL.R 
CPX1 JMP IR 



NPRV 
o 177777 
CTRH r60Q POS 
OOOfeftO 
CCPX UNC 
NPRV 
CTRL SRZ 
UNC 



CTRH 



TEST 
UNC 



HALT INSTR IS PWV 
f'ECR P 

voP(7,h> Always pos 

XOR(7,«,10) 1'JsiYSH 

RESET PAN, SET MLT t OPT SYSH 

PAUS TS PRV 

CTR.SR 

EMPTY TOS RE(jS 

DISPLAY REGS UNTIL INT 
CTR_CPX1<9) FOR HMO!) PwF 



3L 2774-6 USED Bv 1x1? PATCH, INCL THIRD PARITY SEC 4/S» 
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UAB L RBUS SBUS FUNG SMFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG X3, 1*76, 2*07 PM 



2699 
2700 
2701 
270? 
2703 
2704 
2705 
2706 
2707 
270B 
2709 
2710 
2711 
2712 
2713 
271* 
2715 
2716 
2717 
271B 
2719 
2720 
2721 
2722 
2723 
272* 
2725 
2725 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
273* 
2735 
2736 
2737 
2733 
2739 
27*0 
27*1 
27*2 
27*3 
27** 
27*5 
27*5 
27*7 
27*B 
27*9 
2750 
2751 
2752 



3000 20*11777777 



3001 
3002 
3003 
300* 
3005 
3006 
30 07 
3010 
3011 
3012 
3013 
301* 
3015 
3016 
3017 



067260231*1 
16766132760 
0*521777700 
16761010200 
37726363024 
25366002760 
16766131251 
1*3620327*? 
2*772132777 
16777532277 
1*311*17771 
3/72636302* 
01771600610 
16737776277 
16537777*17 



&30rt0 

IRQ 

IK 



SECTOR 6 

INTERRUPT PROCESSOR 

INTERRUPTS DETECTED BY FIRMWARE OPTION TEST ENTER AT IRD OR IR. 
HARDWARE DETECTED INTERRUPTS ENTER AT IR (VIA LOC 3). 
FIRMWARE DETECTED BOUNDS VIOLATIONS ENTER AT BNDV WITH CTRsQ. 
INTO AND INT1 ARE ENTRIES FOR ICS INTERRUPTS; SP2SLABEL, SP3sPARAM, 

SPlO»l (INTO) OR F1»0 (INT1), F2*CLR CONDITION (CTRL i SWAB, CCPX ) . 

INT1 IS ALSO USED BY DISP/PSEB TO CHANGE TO THE ICS. 
INT2 IS THE ENTRY FOR COLD LOAD (VIA CODE SHARED WITH SYSTEM DUMP) , 

AND POWER ON (VIA PWR ROUTINE). 
INT* IS A SHORTCUT ENTRY FOR EXTERNAL INTERRUPTS PENDING 

WHEN A PREVIOUS EXTERNAL INTERRUPT IXITS. 
INT5 AND INTY ARE ENTRIES FOR NON-ICS INTERRUPTS? SPgsLABEL, 

SP3«PARAM, FicO, F2»CLR CONDI InT7 USES PSHA AND STMK THEN INT5. 
TRP6,STUN,ST0V,DSTV,cSTV,STTV,TRP7f TRP5,*,3»2,1 AND 

ARE ENTRIES FOR SPECIFIC NoN-ICS INTERRUPTS. 
THE HALT MODE INTERRUPTS ARE ENTERED VIA HMOD VIA IR (VIA LOC 3), 

SYSH IS THE ENTRY FOR SYSTEM HALTS (DETECTED HY MICRO-CODE). 
PWR IS USED BY PWF AMD PON INTERRUPTS (PON ENTERS VIA LOC 1), 

ENTRY FOR HW DETECTED INTERRUPTS AND INTERRUPTS DETECTED 8Y TEST, 
DETERMINE INTERRUPT TYPE} P.P-1 IF ENTERED AT IRD. 
EXIT TO HMOD IF HALTED, WITH SP2..CPX2I 

ELSE EXIT TO STOP IF RUN/HALT SW o» NO RUN MODE INTERRUPTS! 
ELSE EXIT TO INT1, INT7 OR TPlE WITH APPROPRIATE CONDITIONS, 
AND (ZI + D.CPX2. IF PWF PENDING. 



ROM 



177777 



BNDi 



CPX2 


JMP 


HMOD 


SP? 


EVEN 


UBUS 


JMP 


STOP 




NEG 


CPX1 


ROMN 




SP3 


177700 


UBUS 


"OMX 






OcOQ NZRo 




JMP 


INTl 


SP2 


UNC 


SP3 


JMP 


STOP 


CTRH 


ZERO 


UBUS 


JMP 


TRIE 




NEG 


CTRL 


JSP 


PWQ 


CTRH 


ODD 


SP3 


REPC 


SLi 




NEG 


UBUS 


ADD 


SLl 




INCT NEG 


CTRL 


ROM 




SP1 


7771 NZRo 




JMP 


INTl, 


SP2 


UNC 


SP1 


ROM 






000610 


UBUS 


ADD 


SWAB 


SP2 


INCT 


UBUS 


ADD 




SP3 


SF2 



DECREMENT P 

HMOD IF RJN FF 0FF,SP?_CPX2 

STOP IF RJN SW 

SP3-CPX1 (0:9) 

EXTERNAL INTERRUPT ONLY? 

JMP, SP2.0 IF YES 
CTR-CPX1(9M STOP IF NO RUN 
INTJ ELSE JMP IF INTEG OVFL 
STORE CPX2 AT Zl + 1 IF PWF 
CTR=0 TO 1*, 

FOR CPX1 (1115) ON 
SP1-CTR-7I EXT INT? 

JMP, SP2>0 IF YES 
FORM LABEL 

LABEL=CTR+1,1 J ADJUST CTR 
PARAMsLABELl F2*CLEAR INT 



ENTRY FOR SOME ICS AND NON-ICS INTERRUPTS! 

ALSO USED BY INTERNAL ICS INTERRUPTS ENTERING. ABOVE, 

ICS INT I SPl>« -*, SP2»LABELi SP3sPARAM OR SP3.MOD« 
IF SP1« -1, F2sCLR COND (IN CTR); 

NON-ICS INTl SPl< .*, SP2SLABEL, SP3*PARAM, F2*CLR COND, 
FLO, EXIT TO INT7 IF NON-ICS INTERRUPT. 
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ADDRESS CONTENTS 



LAB, RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1«76, 2107 PM 



2753 
275* 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2 762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2 773 
277ft 
2775 
2776 
2777 

277 8 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2 788 

278 9 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
280 2 
2803 
2804 
2805 
2806 
2807 



3020 01776417457 

3021 0b5377'0777 

3022 017715*0004 

3023 377663&3140 



3024 
3025 
3026 
3027 
3030 
3031 
3032 



303^ 
3034 
3035 
3036 
3037 
3040 
3041 
3048 
3043 
3044 
3045 
3046 
3047 
3050 
3051 
3052 
3053 
3054 



37762211744 
37762362672 
23136777757 
04661600010 
03177777437 
37136777755 
22177777437 



371577 
051167 
0«»76l4 
37766J 
2U777 
337660 
167777 
211777 
261713 
377663 
011767 
264377 
163117 
161767 
262577 
377073 
371673 
261677 



77617 
'4777 
10020 
63045 
77777 
0305* 
77037 
77757 
00000 
63055 
77777 
77117 
77773 
77777 
77057 
77777 
77754 
77435 



• 






int; 


SPl 


INC 




MOO 


ADO 




SPl 


ROM 
JMP 



« 

ft 

» 
INT, 



INT: 



INTn 



CF1 NZRO CF1I STT*7? (MOOULE INT) 

LRZ SP3 YES, PARAMsMOO* 

000* POS USE ICS IF STT>*4 

INT7 UNC ELSE USE USERS STACK 

ENTRY FOR DISP/PSEB AND SOME ICS INTERRUPTS! 

ALSO USED BY ALL OTHER ICS InTEoRUPTS EXCEPT CLD LOAD AND PON, 

INTERNAL INTl SP2«LABEL, SP3«PAdAM, F1 = 0, F2»CLR COND (IN CTR)» 

EXTERNAL INTl SP2«0I 

DISP/PSEB I SP2>0. 
EMPTY TOS, STMK AND DB-BNK.DRj SPo.S, RA_DISP FLAG, 

EMPTY TOS REGS 
STMK 

STACK DB-3ANK, DATA 
{RA NZRO IF IN DlSP) 
IS IN DB SET OF MCU OPS 
SPO INC RSPO WRS SPO-S 

STACK 08 

ENTRY FOR CLD LOAD AND PONJ 

ALSO USED BY OTHER ICS INTERRUPTS AND DISP/PSEB FROM INTl, 

CLD LD, PONJ SP?«LRL, SP3sPARAM, Fl«PON, F2s0, ICS.DISP FLGS CLR I 

OTHER INTERRUPTS AND DISP/PSEBj SPOsS, RAsDISP FLAG. 

S-BNK.OI IF IN DISPATCHER (Q><0>_1 AND CLR DISP FLAG, 
ELSE CHANGE TO ICS IF NOT ON ICS <Q„UI, Z-ZI, DL- -1, 
SR.O, (01-6). DS, SET ICS FLAG), 





JSB 


PSHA 




SRN7 




JSB 


STMK 




UNC 


SM 


INC 




BSPO 


WRS 


CPX1 


ROMN 




PA 


000010 


RBR 


ADD 




BUS 


DATA 




INC 




RSPO 


MRS 


DB 


ADD 




BUS 


DATA 



SPl 
SPO 



MOD 

cpxi 

Q 
RA 

UBUS 



OPND 

SPl 

OPND 

UBUS 

UBUS 

OPND 



OPND 



ADD 

INC 

ROMN 

JMP 

ADD 

JMP 

ADD 

ADD 

ROMI 

JMP 

INC 

ADD 

ROM 

INC 

«DD 

CAD 

CAD 

SUB 



RR7 



INT3 



INT4 



INT4 



SBR 


s 


MSP1 


ROS 




0020 NZRO 




UNC 


BUS 


ROS 




ZERO 




CCPX 


BUS 


WRS 


BUS 


100000 




UNC 


BUS 


ROS 


Q 


SIFG 


SPl 


177773 


BUS 


ROS 


7 


CLSR 


r>L 




RUS 


WRS 


BUS 


DATA 



S-BANK„0 

HEAD QI, SPl-5 OR S» 

(ICS, DISP CL« IF CLD, PON) 

JMP IF NOT ON ICS 

ON ICS» READ DQ 

JMP IF NOT IN DISP 

CLEAR DISP FLAG 

SET DQ(0)=1 

RETURN TO MEM 

NOT ON ICSJ READ Zl 

Q.Ul, SET ICS 

SP1-QI-5 

READ STUB AT QI-4 

Z-ZI* CLSR IN CASE CLD 

DL - -1 

UI-6..DS 

(MEANINGLESS IF CLD, PON) 



ENTRY FOR EXT INTERRUPTS DETECTEO BY IXlTj 

ALSO USED BY OTHER ICS INTERRUPTS AND DISP/PSEB FROM INT2. 

EXTERNAL INTERRUPTS I SP2»0» 

OTHER ICS INTERRUPTSJ SP2*LABEL| 

DISP/PSEB ! SP2>0, 

S-Q+21 IF EXT INTERRUPT SP2-LABEL, SP3-DEV*, STA.I^OOOO, 

OB-BNK-0, DB.DBI, Fl-0, F2.1, CTR-8. 
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ADDRESS CONTENTS 



LABl rbus SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2507 PM 



8809 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2829 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2839 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2849 
2849 
2850 
2851 
2852 
2653 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 



3055 
3056 
3057 
3060 
3061 
3063 
3063 
3064 
3065 
3066 



3067 
3070 
3071 
307g 
3073 
3074 
3075 
3076 



3077 
3100 
3101 
310? 
3103 
3104 
3105 
3106 
3107 
3110 
3111 
3112 
3113 
3114 
3115 
3116 



21471600002 
36766013067 
115377^4457 
161367/2776 
375117*0000 
3716737777F 
26457777417 
37157777417 
37351600010 
26726363071 



375U700000 
35766122601 
23176777757 
25177777437 
23476777777 
00557777777 
37157577017 
147777*76037 



3b3177'4777 
16771600100 
161377^0177 
35621677400 
3&S223&271? 
31637570777 
37177777360 
35761710000 
16306012520 
31722362705 
37731720401 
26766132711 
16777522437 
377662&3067 
31766002422 
266263*242? 



» 
INU 


Q 


ROM 




SM 


000002 




SP2 


JMP 


INT^ 




N/RO 




IOA 


ADO 


RRZ 


SP3 


CF1 


U3US 


UBUS 


INC 


SH 


BSPO 


ROS 






ROM 




STA 


140000 


SPO 




CAO 




BUS 


ROS 




OPMD 


ADO 




DB 


SF2 






ADD 




SBR 


DB 






ROM 




CTRL 


000010 




OPND 


JMP 


INT6 


SP2 


UNC 



INTs; 



INT* 



PCLi 



SM.Q+2 

JMP IF NOT EXT INTERRUPT 

SP3„DEV#*PARAM, CF1 

READ OBI 

CUR STA| SET M,I 

READ LABEL 

Dfl.DBI, SF2 

PB-BANK^O. 

CTR.B 

SP^-LABEL 

ENTRY FOR SOME NON-ICS INTERRUPTS! 

ALSO USED BY ALL ICS INTERRUPTS AND DISP/PSE8 FSOM INTA 

AND ALL OTHER NON-ICS INTERRUPTS FROM INT7, 

INTERRUPTS: SP2»LAPEL, SP3sPARAM, FlsPON, F2=CLR CONO (IN CTR)| 

DISP/PSE8 J SP2>0. 
IF NOT EXT INTERRUPT STA_100000 AnD EXIT TO IXI6 

PUSH SP3sPARAM INTO MEM, X.CIRi ABS-bNK..0t CLR 



IF DISP/PSEBI 
COND IF F2. 





ROM 


SP2 


JMP 


SM 


INC 


SP3 


ADD 


SM 


INC 


CIR 


ADD 




ADO 


CTRL 


ADD 



IXI6 



SWAB 



STA 


100000 




pos 


BUS 


WRS 


RUS 


OATA 


SM 




y 




SBR 


A3S NFg 




CCPX 



CLR STAj SET M 
JMP IF DlSP/PSEb 
TOS-PARAM 

(IN MEM FOR IXIT 
RIL IF EXT INT) 
X.CIR 
ABS-0 
CLEAR INT IF F2 



SET UP NEW SEG FOP INT PROC AND PcAL J SP2»LA6EL, FlsPON, F2=UNKN. 

SET P8.PL FROM CST J TF TRACE OR ABS STA-NSTA, STMK, SYSH IF NSEG<?, 
IF ABS SVSM IF ICS ELSE ABS TRAP, ELSE TRACE TRAP» CK STT#, CK 
TARGET LABEL LOCAL AND IF NPRV CALLABLE! IF STT*sO TARG LABEL.O. 
EXIT TO PCL5, WITH RC-TARGET LABEL, RD_NSTA, F1=UNCH, F2-0. 

SPl.SEG^ FROM LABEL 
READ CST °TR AT IF 

SEG*<I92, ELSE AT l 
ISOLATE STT* 
SP3-LABELJ SET UP SEG 
RC.STT« 
PL ADD BUS ROP READ STTL IF NOT ABS 

ISOLATE T,A BITS 
JMP IF T,A SET, ELSE SP1.0 
SPg.STT*, CK STTV {2C JMP) 
UNCALLABLE, LABEL«33,1 
STTV(CLA2) IF LABEL NOT LOC 
CF2I JMp IF UNCALLABLE, 

AND NOT COME FROM PRV 
IF STT*0, LABEL«0» FINISH 

LIKE LOCAL CALL <2C JMP) 

ENTRIES FOR NON-ICS INTERRUPTS NOT ENTERING DIRECTLY AT INT5, 
TRP6,STUNJ SP2.LABEL, SP3.P.ApAM»LABEL , Fl.Oi F2„0i EXIT TO INT7, 



SP2 


ADD 


PR,' 


SP1 




UBUS 


ROM 






000100 


UBUS 


ADD 


LR7 


BSPO 


ROA 


SP2 


RQMN 




PC 


077400 


SP2 


jsa 


SSEG 


SP3 


UNC 


RC 


add 


LR* 


RC 


NF2 




ADD 




BUS 


ROP 


SP2 


POMN 






I 10000 


UBUS 


JMP 


Exie 


SPl 


NZRO 


RC 


JSB 


CLAB 


SP2 


UNC 




ROM 




SP2 


120401 


OPND 


JMP 


CLA2 




NEG 


UBUS 


ADD 


SL1 




CF? POS 




JMP 


INT5 




NPRV 


RC 


JMP 


pclb 




ZERO 


OPND 


JMP 


PCL5 


RC 


UNC 
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ADDRESS CONTENTS 



LABl. RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2107 P* 



8863 
2864 
2663 
2666 

8867 
2668 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2680 
2881 
2882 
2883 
2884 
2683 
2886 
2887 
288B 
2889 
2890 
2891 
2892 
2893 
2894 
289S 
2896 
2897 
2898 
2899 
2900 
««• WARNING 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 

2911 
2912 
2913 
2914 
2915 
2916 



3117 
3120 
3121 
312? 
3123 
3124 
3125 
3126 

3127 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 

314 
3141 
3142 



3143 
3144 
3145 
(12) • 
3146 
3147 
315Q 
3151 
3152 
3153 
3154 
3155 
3156 
3157 

3160 
3161 
3162 
3163 

3164 
3165 



37316767777 
37316767777 
013167O2777 

01316762457 
01316777457 
37771600620 
16737776434 
165263&3140 

37536767777 
37536f67777 
25536702777 
2S5367b2777 
25536777777 
37731714*01 
247777*2457 
163575J1636 
37777757617 

377622H744 
377623*2672 
37766363067 



147620 
147660 
3S>7617 
»« ZERO 
165350 
377716 
167767 
257660 
167661 
355377 
257660 
357616 
167660 
357616 



» 
» 

ft 

» 
» 

« 

TRPft 

STUN 

0ST v 

CST V 

STTv 

TRP 



« 

TRPe, 
TRP/ k 
TRPt, 

trp; 

TRP, 
TRP- 



INT- 



DSTV,CSTV,STTV| SPle | FUNCTION SAME AS ABOVE. 
TRP7| SP1«0, FlcOf FUNCTION SAME AS ABOVE, 
TRP5,TRP4l SOV.NEXT IF TRAPS DISABLED 

ELSE CLO, SP2.UABEL, SP3-PARAM, F1.0, CTR.O, EXIT TO INT7, 
TRP3»2,1,0I SP3«0| FUNCTION SAME AS ABOVE, 
INT7J SP2»LABEL, SP3aPARAM t F1«0, F2*CLR COND (IN CTR)| 

EMPTY TOS REGS, STMK, EXIT TO InT5. 



SP1 



INC 
INC 
INC 
INC 
INC 

POM 

UBUS ADD 
UBUS JMP 



SP1 
SP1 
SP1 



SLl 
SLl 



SPl 
SP1 
SRI 
SPl 
SPl 



SWAB SP2 
INT7 SP3 



INC 

INC 
SP3 INC 
SP3 INC 
SP3 INC 

POM 

STA ADD 

UBUS UBUS ADD 

ADD 

JSB 
JSB 

JMP 



SLl 
SLl 



SLl 
LLZ 



PSHA 
STMK 
INT5 



SP3 
SP3 
SP3 
SP3 
SP3 
SP2 



UNC 
UNC 
UNC 

CF1 UNC 

CF1 

000620 

CF2 

UNC 

UNC 
UNC 
UNC 
UNC 



114401 
CF1 
CTRL CLO NEG 
SOV NEXT 

SRNZ 

UNC 

UNC 



5, MODE VIOLATION 
4, STACK UNDERFLOW 

3, DSTV 

2, CSTV| CF1 

1, STTVf CFl 

0, UNIMPL INSTR (FLAGS CLR1 
LBL«16-21,ll NO INT TO CLR 
USE USERS STK! PARAMsLABEL 

5i FP DIV BY 

4, INTEGER DIV BY 

3, FP UNDERFLOW 

2, FP OVFL 

i, integer ovfl 

0, UNUSED 

LBL«25,1? CF1, CLO, CTR.O, 
USERS STK IF TRAPS ENABLED 
ELSE SOV, NEXT 

EMPTY TOS REGS 

STMK 

USERS STK, CLR INT IF F? 



» 

« 

« 
J274P HMOri 
33144 
50000 

»NZRO t NSME SKtP 
02417 
*0000 
77037 
33202 
33221 
'3437 
13206 

ioooo 

13166 
04Q00 



SCAN FOR HALT MODE INTERRUPTS, 

ENTER WITH SP2cCPX2, CTRH.CPXll SD3,F2 MODIFIED. 



CTRL JSB PWR 
CTRL JMP « 
SP2 ROMN 
TESTS MADE ON T-FJUS 

UBUS CRS SLl SP3 

ROM 
UBUS INC 
SP3 JMP SI NO' 
UBUS JMP DUMP 
SP2 ADD SRi SP3 
SP3 JMP COLD 
SP2 ROMN 
UBUS JMP LREG 
SP2 ROMN 



16766013167 
25766063171 
3576606317? 
25766063202 
35766063203 
37766362760 



UBUS JMP 
SP3 JMP 
SP2 JMP 
SP3 JMP 
SP2 JMP 
JMP 



LADR 
LMEM 
DMEM 
SING 
EXSW 
STOP 



ODD 
ODD 
160000 

SF2 ZERO 

040000 

CCPX 

ODD 

NEG 
CF2 

NZRo 
010000 

NZRO 
004000 

NZRO 
BIT* 
BIT6 
BITS 
BITB 
UNC 



IF HMOD PWF STORt CP*2 AT 

ZI+1 AND WAIT HERE 
ISOLATE CPX2(01c!) 

SF? IN CASE DUMP 

SET RUM IF any CPX2(0l2), 

RESET PANEL FF 

RUN IF CPX2(0) 

DUMP IF C°X2(1) 

CF<= IN CASE COLO LOAD 

COLO LOAD IF CPX2(2) 

LOAD REG IF CPX2(3) 



LOAD ADDR IF CPX2<4) 

LOAD MEM IF CPX2(5! 

DISPL MEM IF CPX2(6) 

EX SING INSTR IF CPX2(7> 

EX SWCH IF CPX2(8) 

D E5iBtT IS STOP (NORMAL R£T 
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ADDRESS CONTENTS 



LAB L rbus S9US FUNC shft stor spec skip 



COMMENTS 



FRI, AUG 13, l»7fc, a«07 PM 



29X7 
2918 
2919 
2920 
2921 
2922. 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
293* 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
««» WARNING 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 



3166 
3167 

3170 

3171 
3172 
3173 
317<f 
3175 
3176 
3177 
3200 
3201 

3202 
3203 
3204 
3205 



3206 
3207 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3220 
( 2) « 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3230 
3231 



07770767777 
37330377777 
37766302761 



37177 
37177 
07177 
26317 
3*527 
37336 
25777 
37327 
37766 



767155 
767X75 
767437 
777777 
0*2777 
777775 
4*2777 
377775 
3*2761 



201777673X7 
0077767237 
204X6777777 
37777767777 



077660 
375516 
37X577 
373X77 
3733X6 
01XX67 
37X777 
0X7660 
031567 
167660 
377777 
»« RBR 
033567 
371577 
0730X6 
167715 
377663 
377317 
0776X4 
377663 
Q13177 



» 

LREfl 
LADr 

IMEM 

DM£>, 



SWCH PNLS 

PNLR SPO 
JMP WAIT 



UNC 



UNC 



ft 
SINr, 

EXSv 



b 3221 
^0370 
77017 
77437 
41374 
77157 
77426 
13213 
74015 
13213 

ao35 

CONFLICTS 

77617 

77617 

00077 

27775 

63520 

22001 

00100 

67773 

72054 



COLn 
MZRn 
MZRi 



MZRp 



WITm 
DUM« 



SPO ADD 

spo add 

SWCH ADD 
OPND ADD 
SP2 CAD 

SPO INC 
SP3 ADD 

SPO CAD 



«US WRA UNC 



SLl 
SLl 



BUS 
BUS 
SP1 
SP3 
SPO 

SPO 



JMP WAIT 



ROA UNC 
DATA UNC 

BIT8 

BITQ 
UNC 



P ADO 
SWCH ADD 
P INC 

ADD 



BUS 


RNP 


UNC 


PUS 


NIR 


UNC 


p 







FOR SING,EXSW,HM0Q PWF) 

LOAD REG 
LOAD AUDR 



LOAD MEM(SPO) WITH SWCH 
DISPLAY MEM(SPO) 
(SPO).SWCH 
SP1„DISPLAY 

INC ADDR 

DECR ADDR 



EX SINGLE 1NSTR OR RUN 

EX SWCH 

INC P IF SING OK RUN 



NEXT 



COLD LOAD AND DUMP 
F2 IF DUMPf COLD LOAD SHARES FIRST PART OF DUMP ROUTINE, 
READING FROM INSTEAD OF WRITING To THE SELECTED I/O DEVICE, 
ANO IS THEN PROCESSED AS AN INTERNAL "COLD LOAD" INTERRUPT. 

COLD LOAD ENTERS at COLD PROM HMOr> TO FILL MEM wlTH HLT XOS IF 
NOT SWCH(B), OR AT MZRX (WITH IcS.DlSP.SR CLR) 3Y LOADING RAR 
TO FILL HpM WITH (XM DUMP ENTEpS AT DUMP FROM HMOD. 

S-BNk.0, CTR..S-BNK+1 , SPisDEy*, APS-BNK , SPO t X POSSIBLY MQDIFIEU. 
IF DEV#<*2 EXIT TO PANEL DIAGNOSTICS!. ELSE SPB..CLD LD LABEL, EXIT 
TO DIRECT LD/DMP AT DCLD IF SWCH(9)al, ELSE 5P1.DEV#*4, SR_0. 



SPO 



SWCH JMP 
ROM 
ADO 
ADD 
ROM 
INC 
ADO 
JMP 
INC 



DUMP 



SPX 

SP1 

RBR 



x 

SBR 

SPX 

SPO 
PSP1 

E*US 



SBR 



UBUS JMP 

ADD 



SPO 

PREFETCH ON INS 
RBR INC 
ADD 
SWCH ROMN 
UBUS ROM 
JMP 
ROM 
SWCH ROMN 
JMP 
SP1 SP1 ADD 



MZR2 

RRZ 

MZR9 

LL* 

TR ENTRY 
CTRL 
SBR 
SP1 



PAOT 



SP2 



DCLD 
SLl SP1 



BITP 
030370 
ABS 
CF2 

041374 
WRA 
DATA 

NZRo 
ABS 

NZRO 
CCPX 

s 

S 

000077 
7775 POS 

UNC 
122001 
0100 ZERO 

UNC 
CLSR 



NO MEM INIT IF SWCH<8> 

X . HALT 10 

ABS-BANK.O 

CF2J SPX.O 

LH. RUN, ILL ADDR K| RH_ -4 

(ABS,SP1 ) .X 

FILL BANK 

INCR BANK 

FILL <+ BASKS 

CLR ILL ADDR, SET RUN MODE 

SAVE S-BAMK+1 (CTR NZRO) 

S-6NK.0 
SPX.DEV* 

JMP TO PAM DIAGS IF DEV#< = <? 
LABEL FOR COLD LOAD 

DIRECT LD/DMP IF SWCHJ9) 
CLSRJ SPX.OEV# * 4 
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ADDRESS CONTENTS 



LAB L rbus sbus func shft stor spec skip 



COMMENTS 



FRI, AUG 13, 1*76, 2107 PM 



2971 
2972 
2973 
297* 
2975 
2976 
2977 
29f8 
2979 
29S0 
2981 
2982 
2983 
298* 
2985 
2986 
29S7 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
8996 
2997 
2999 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
30 08 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 



3232 
3233 

3234 
3235 
3236 
3237 
3240 
3241 

3242 

3243 



3244 
3245 
3246 
3247 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3260 



37157577017 
01137767777 
01326223244 
01316637777 
26537767777 
262063*323? 
01177777777 
16116777717 
26737777777 
01176777777 



371071 
375177 
371716 
371777 
071777 
3/1365 
377716 
161716 
3 7136* 
167767 
161777 
371767 
371316 



67155 
77777 
*»0000 
77155 
'0437 
67155 
17740 
60000 
67155 
77777 
77437 
77155 
34Q00 



3261 


07301600077 


3262 


16136772156 


3263 


37177774435 


3264 


37127377155 


3265 


37171614000 


3266 


3716.7377155 


3267 


16116777437 


3270 


01531701000 


3271 


25337777777 


3272 


377623&1724 


3273 


37511644000 


3274 


24537777777 


3275 


04777467777 


3276 


37766363275 


3277 


25517777777 


3300 


24777627037 



« 

# 
PULa 



LOAD TOS REGS. SP3, 
AND NO FETCHES IF N 



SP2i NIR AND OPND WITH <0,SP1),,. <SP2 UNCH 
F2*CLDl, ABS-BNK-0, SPO.SPl+4, SP1 MODIFIED, 



DMPo 



DMP- 



AOO 
SP1 ADD 
SP1 JMP DMP1 
SP1 INC 

opnd add 

opnd jmp puu8 

SP1 ADD 
JBUS INC 
OPND ADD 
SP1 INC 

CREA7E SECOND PART 
ABS-BNK,SP0-1*DEV 
OR DUMP REC (4K 

EXIT WITH RH SPO.,0 



SBR 


ABS 


NF2 


BSPO 


ROS 


UNC 


SPO 




SR4 


SPl 




SRN4 


«P3 




UNC 


PUSH 




UNC 


BUS 


ROS 




BSP1 


RNS 




SP2 







rUS ROS 



ABS»BNK_0 

READ D0-D4 IF DUMP 

SKIP REST IF CLO AND SR4 

INCR SPl 

SP3_D4 

TOS-00-D3 

READ D5 

READ D6 IMTO NIR 

SP2-D5 

READ D7 



DMPT SPO 



SPO 



SPO 



SPO 



SPO 



CAD 
ADD 
ROM 
ADD 

SWCH ADD 
INC 
ROM 

UBUS ROM 
INC 

UBUS INC 

UBUS ADD 
INC 
ROM 



LRZ 



CREATE FIRST PART 
I/O PTR, SET BNK* 
WAITING FOR CORRE 

EXIT WITH SP0-SP3, 



OF I/O PROGRAM, BEGINNING AT 

a«4+3l CONTROL, READ CLD LD PRG (32W INTO 07) 

WORDS FROM D6), END WITH INTERRUPT. 
AND IF COLD LOAD STA.Of SPl MODIFIED. 



SPl„DEV**4+3 

CLR I BIT IF NFS=CLD LD 

IOCW (CONTROL) 

IOAW (CONTROL) 
IOCW (R/W) 

IOAW (D6 OR D7 ADDR) 
IOCW (END WITH INT) 



F I/O PROGRAM, BEGINNING «T ABS-8NK , DEV#»4 : 
RH SPO. SENO RIL TO ALL INTERRUPTING DEVICES, 
CT DEVICE! CHECK I/O PTR IF DUMPING REC 1-N. 
*?^l«DEV*»4 + 7» FliwOJ STA PRESERVED? SP3 MODIFIED, 



PSP1 


WRA F2 


STA 




«UJS 


040000 


BUS 


WRA 


BUS 


DATA 


nS"0 


WRA F2 




017740 


F3US 


060000 


BSPO 


WRA F2 


BUS 


DATA 


BUS 


WRA 


PSPO 


03*000 



SWCH POMN 
UBUS UBUS INC 
SPO 



SPO 



SPO 



ADD 

CAD 

ROM 

CAD 

UBUS INC 



SLl 
RRZ 



SPl 
SP3 



ROM 
ADD 
USB 
ROM 



SPl 000077 
BSPO WRA 
BUS DATA 
BSPO WRA 
«US 014000 
BUS WRA 
BSP1 DATA 
SP3 101000 
SPO 



STA ADD 
CPX1 ADD 
JMP 
SP3 ADD 
STA ADD 



IOPA 



*-l 



STA 



SP3 



STA 



UNC 
044000 



BIT« 
UNC 

CCPX SR4 



SP1_DEV# 

IOAW (BANKeSPO ( 14: 15) ) 

IOCW (SET BANK) 
AT DEV« • 4, 

PUT DEV* 4+1 
FORM SIO CMD 
SAVE SP3 

SEND CMD TO DEVICE 
SET I BIT, AND K 

FOR CLEARING £XT INT 
SAVfc. STA 

WAIT FOR INT 

REPLACE STA 

CLEAR EXT INTERRUPT 
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ADDRESS CONTENTS 



LA8 U RBUS SBUS-FUNC SHFT sTQR SPEC SKIP 



COMMENTS 



FRI, AUG 13| 1*76, 2107 PM 



3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

303B 

3039 

3040 

3041 

3043 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

305E 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 
3076 
3077 
3078 
3079 
3080 



3301 
3303 
3303 
3304 
3305 
3306 
3307 
3310 
3311 



3312 
3313 



3314 
3315 
3316 
3317 
3320 
3321 
332? 
3323 
3324 
3325 
3326 
3327 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3340 



37167377174 
11531302000 
07763377456 
16761400077 
377663^327? 
37762351724 
01311600006 
26767537776 
37766233345 



3f5261'3Q33 
2J526233341 



01462211 744 
3721777777? 
3b217777777 
26202361744 
37217777766 
342177/7777 
03217777417 
22202361744 
212*17777777 
2*202361744 
14211777777 
37217777763 
242023O1744 
03217777217 
362023*1744 
20217777777 
37217777760 
002023*1744 
37731610000 
37617777217 
04657777217 





SPl 


CAD 




RUS 


ROA 






IOA ROMI 




SP3 


102000 




U8US 


SWCH XOR 
UBUS ROMN 






CF1 

0077 ZERO 






JMP 


DMP9 




UNC 






JSB 


IOPA 




UNC 






SPl ROM 




SPl 


000006 




UBUS 


OPND SUB 






NEG 






JMP 


DMP5 




srnu 




EXIT 


TO CLD LD 


WITH 


5P3„0 IF NF2J 


# 


ELSE 


SP3.SM, EXIT TO OMP4 IF REC ) 



DMP? 



SM 



JMP 
JMP 



INT,? SP3 
DMP4 SP3 



Nf'g 
S«N4 



MEAD. I/O PTR IF DMP 1-N 

FORM RIL CMO 

CF1 

JMP IF NOT CORRECT DEVICE 
SEND RIL TO (CORR) DEVICE 
SPl-DF.V**4 + 7 

JMP IF ABM END AND DMP 1-N 
(FOLLOWING SBUS»0) 



JMP IF COLD LOAU 
JMP IF 0M"» REC 1-N 



PUSH RESS,ETCo INCL DO-5,7 IN TOS , SPO » SP2 , OPND , ORG S-BNK(+1) 
IN CTR AMD ORG SM IN SP3 EXCEPT CPX1,CPX2,D6 AND SIZE INTO 
MEM BEGINNING AT S-BNK , SPl +1 sOEv**4*6 . 

PAN (MEM) DIAGS USE L)MP3 flS A SUBP To FIND M£M SIZE; ENTERING WITH 
S-BNKsO, SR*0> EXIT (FROM DMP4) WITH SPO-«U+S-BMK=L AS T ADDR+1, 
(ILL ADDR INT CLEARED), SR_2, SP2|RA-C,CIR MODIFIED. 

EXIT WITH SPa.4K, RD_0, RB-CPXli sR-2, SM.DE V##4+26 . 



SPO 



PL 



SPl 


JSB 

ADD 


PSHA 


SM 

PUSH 




SRN 


SP? 


ADD 




PUSH 






OPND 


JSB 
ADD 


PS-H4 


PUSH 

PUSH 




UNC 


OL 


ADD 




PUSH 






RBR 


ADD 




PUSH 


00 


r 


OB 


JSB 


PSHA 


PUSH 




UNC 


Q 


ADD 




PUSH 






SP3 


JSB 


PSHA 


PUSH 




UNC 


CTRL 


ROM 




PUSH 


177777 




ADO 




PUSH 






STA 


JSB 


PSHA 


PUSH 




UNC 


RBR 


ADD 




oUSH 


PB 




PB 


JSB 


PSma 


PUSH 




UNC 


P 


ADD 
ADD 




PUSH 
RUSH 






CJR 


JSB 


PSHA 


PUSH 




UNC 




ROM 




SP2 


J. 




ADD 




PD 


TNSR 




CPX1 


ADD 




RB 


INSR 





DUMP D0-U3 (2C JMP) 



DUMP D<*,D5,D7 



DUMP X ,DL»DB-BANK,i)B 

DUMP Q,SM 
(CTHaS-BAVJK+1 ) 

DUMP S-BANK,Z,STA 

DUMP PB-BANK,PB 



DUMP P,PL,CIR 
SP2-4K 
RD„0, SRal 
RB„CPXl t SRs£ 

FIND MEM SIZE! PUSH CPX1,CPX2,D6 AND SIZE INTO MEM bEGINNlNG AT 

S-BNK, SM+l*DEV#*4+29» DU M P REC 1-N (<*K EACH, BEG WITH 0-7777), 
ENTER WITH RO*0, RB=CPXl, SRs2, SM»DEV##<* + 28 , ABS-BNKsQ, S-BNKsO, 

SPl»DEV*#4+7, SP2*4K, SP3*0RG SM, NIR«D6. 

DMPB USED TO WRITE REC 1-NI WRITE 4K AND WRITE ADDR SET AT 

DEv**4+5,6, PH SPO.BNK AND SM.SP3 BEFORE EACH TRANSFER TO DMP8I 
IF ABN I/O PROGRAM END DMPQ ENTERS AT DMP5 WITH SBUSsO (SRaQ) 
TO TERMINATE DMP WITH ADDR+BNK F REC BEING WRITTEN IN ClR. 

EXIT TO WAIT AFTER LAST RECORD, WITH ENVIRONMENT UNCHANGED EXCEPT 
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ADDRESS CON»ENTS 



LABi R8US SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2J07 PM 



3081 
3082 
3083 
3084 
3085 
3086 
3087 
3083 
3089 
3090 
3091 
3092 
30«3 
309ft 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
310* 



3341 
334? 
3343 
3344 
334S 
3346 
3347 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3360 
3361 
3362 
3363 
3364 
3365 
3366 



3&617417770 
03156777617 
16137617770 
16177777237 
17631601200 
37777777025 
046216*0000 
31761404003 
31766003360 
06677707777 
3762620*761 
37157777617 
002023&1744 
3^677777215 
373223&1744 
37766213341 
37177777235 
37107377154 
30177777437 
37167377154 
371716&0000 
2b4663«>3261 



« 

DMP 4 



DMP<^ 



(DEV#*4) THROUGH COEV#»4+32), ClR»LAST ADDR+1 + S-BNKsBNK f 



DMP* 



RD 



RD 



R8US 



SPO 



SPO 
SPl 

SP1 



SP2 


ADD 




PD 




nZro 


RBR 


INC 




SHR 


S 




UBUS 


ADD 




PSPO 


ROS 


SRN7 


UBUS 


ADD 




PUS 


MR 




SBUS 


ROM 




RC 


001200 




ann 






CCPX 




CPX1 


ROMN 




»C 


020n00 


RC 


ROMN 






4003 


ZERO 


RC 


JMP 


DMp* 






ZERO 


CPX2 


ADD 




PA 




RSB 




JMP 


WAIT 


PC 




SRZ 




ADO 




5iBR 


S 




CIR 


JSB 


PSHA 


PUSH 




UNC 




ADO 




PA 


INSP 






JSB 


PShA 


SPO 




UNC 




JMP 


OMa« 






SRN/ 




ADO 




RUS 


MR 






CAD 




BSP1 


mRA 




RD 


ADD 




PUS 


DATA 






CAD 




RUS 


wRA 






ROM 




«US 


060000 


SP3 


JMP 


DMP8 


SM 




UNC 



INC MEM ADDR 

INC S-BANK 

READ (ADDR+S-BNK) 

NIR-ADDR+3NK IF DMR 1-N 

HC«AJDR + 8NIK + 1200 

CLR ILLEGAL ADO*, CIR.NIR 

TEST FOR .ILLEGAL ADDR INT 

256K? 

JMP IF NOT ILLEGAL AUDR 

RA..CPX2, RET IF SUWR 

PC. 1 JMP IF ALL DUMPEU 

RESET S-BftNK 

RD.RCJ DU^P CPX1 .CRXiJ.Ue 

SIZEsADDR+BANK 

CLR SPO | DUMP SIZE 

JMP IF FINDING SIZE 

NIR-A0DR+8NK 

SET WRITE ADDR 

WRITE ak 

SET I/O PTR,BANK» SIO 
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ADDRESS 



CONTENTS 



LABj RBUS SBUS FUNC SHFT 5TOR SPEC SKIP 



COMMENTS 



FR1, AUG 13, 197b, 2107 PM 



3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3U* 

3115 

3116 

3117 

311B 

3119 

3120 

3181 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

313* 

3135 

3136 

3137 

3138 

3139 

31*0 

3141 

3143 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

315* 

3155 

3156 

3157 

3158 



3400 
3401 
3403 
3403 
3404 
3405 
3406 
3407 



3410 
3411 
3413 
3413 
341* 
3415 
3416 
3417 



3420 
3421 
3432 
3423 
3424 
3425 
3426 
3427 



37766367777 
37766367777 
377663&7777 
37766367777 
37571610023 
37571610243 
37571610701 
376716U7777 



0*561216011 
025612 161 0"* 
0*b6l216a33 
0*561216047 
Q«?56l21t>367 
0*5612 16* 7 7 
02571616737 
02571&A6737 



37766366757 
37766366761 
37766366763 
37766366765 
37766366767 
37766366771 
37766366773 

37766366775 



SECTOR 7 
OPTIONAL INSTR JMP TABLE 

PANEL DIAGNOSTICS: ADDR TEST, REG TEST, I/O TEST 
MEMORY APOP. TEST 



OPTIONAL INSTR JMP ToBLE 
INSTRS 020*00/1 THROUGH 020576/7 vHlCH ARE In OPTION 
GROUPS CONFIGURED AS PRESENT ENTER AT 34,CIR(9M4> 



&,34ft0 



FROM OPTX, WITH SRs4 
OPTION GROUP 



AND PADO«ClR (B: 15) t 



EFP 



JMP 


UNJM 




UNC 


/20 


EADD/ESUB 


020*00/1 


JMP 


UNIM 




UNC 


/20 


EFMP/EOIV 


?/J 


JMP 


UNIM 




UNC 


/20 


ENfr.G/£CMP 


4/5 


JMP 


UNIM 




UNC 


/20 


TRP7 


6/7 


MOM 




RAP 


010023 


/30 


EADD/ESUb 


020410/1 


ROM 




PAR 


010243 


/30 


EMPY/EDIV 


2/3 


ROM 




RAR 


010701 


/30 


ENEG/ECMP 


4/5 


ROM 




RAP 


0^7777 


/30 


TRP7 


h/r 



OPTION GROUP 1 APL 



PADD ROMX 
PADD ROMX 
PADD ROMX 
PADD ROMX 
PADD ROMX 
PADD ROMX 
PADD ROM 
PADD ROM 

OPTION GROUP ? 



RAR 


016011 


RAR 


016103 


RAR 


0l6?33 


RAR 


016047 


PAR 


016367 


RAR 


016477 


RAR 


016737 


PAR 


016737 









. JMP 


L2r>0 








JMP 


L2o2 








JMP 


L2o* 








JMP 


L2nfi 








JMP 


L210 








JMP 


L2t2 








JMP 


L214 








JMP 


L216 


% 


LpOO 


6757 






% 


LP02 


6761 






% 


L»0* 


6763 






% 


L206 


6765 






% 


LpIO 


6767 






* 


L?12 


6771 






* 


L»l* 


6773 







UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 



LDV/iTV i 


&16031/0 


020420/1 


N'WFV/MWfV 


16121/0 


2/3 


MBFV/MPTV 


16217/6 


4/5 


LDVU/STVB 


16061/0 


f- / r 


MVW/ 


16357/6 


020430/1 


/ 


16445/4 


2/3 


/ 


16773/4 


4/5 


/ 


16775/6 


b/7 



J-06757 


020440/1 


06761 


2/3 


06763 


4/5 


06765 


6/7 


06767 


02 450/1 


06771 


2/3 


67 73 


4/K 


06775 


6/7 



PA8E 62 



ADDRESS . CONSENTS 



LAB) RBUS SBUS FUNC SHFT sTOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1976, 2107 PM 



31S9 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
317ft 
3175 
3176 
3177 
3176 
3179 
3180 
3181 
3182 
3183 
318ft 
3185 
3186 
3187 
318B 
3189 
3190 
3191 
3192 
3193 
319ft 
3195 
3196 
3197 
3198 
3199 
350 
3 201 
3;?02 
3303 
3204 
3^05 
3206 
3.20 7 

3.109 
3,209 

saio 

3311 
3312 
3213 







* Lsl6 


6775 










« 


OPTION GROUP 


3 




3430 


0*571615677 


PADD ROM 


PAR 


015677 


3431 


0*571615677 




PADD ROM 


PAR 


015677 


3432 


0*571615677 




PADD ROM 


WAR 


015677 


3433 


0*571615677 




PADD ROM 


PAR 


'■'15677 


3434 


0*571615677 




PADD POM 


RAR 


M5677 


3435 


0*571615677 




PADD ROM 


PAR 


015677 


3436 


0*571615677 




PADD ROM 


RAR 


015677 


3437 


0*571615677 




PADD ROM 


WAR 


015677 






OPTION GROUP 


4 




3440 


0*571617657 




PADD ROM 


PAR 


017657 


3441 


0*571617657 




PADD ROM 


PAR 


017657 


3442 


0*571617657 




PADD RCM 


PAR 


017657 


3443 


0*571617657 




PADD ROM 


OAR 


017657 


3444 


0*571617657 




PADD ROM 


PAR 


017657 


3445 


0*571617657 




PADD POM 


PAR 


n 1765 7 


3446 


0*57161?657 




PADD ROM 


RAP 


017657 


3447 


0*571617657 




PADD ROM 


PAR 


017657 



3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 



3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 



0*571 
0*571 
0*571 
0*571 
0*571 
0*571 
0*571 
0*571 



623637 
6*3637 
6*3637 
6*3637 
623637 
623637 
6*3637 
6*3637 



0*571 
0*571 
0*571 
02571 
0*571 
0*571 
0*571 
0*571 



6*4617 
6*4617 
624617 
6*4617 
6**617 
6*4617 
6*4617 
6*4617 



3470 


377663ft7*33 


3ft7l 


37777777777 


3472 


37777777777 


3473 


37777767777 


3474 


37766367233 


3475 


37777777777 


3476 


37777777777 



OPTION GROUP S 



PADD 


POM 


PAR 


023637 


PADD 


ROM 


PAR 


023637 


PAOD 


MOM 


OAR 


023637 


PADD 


POM 


PAR 


0*3637 


PADD 


ROM 


CAR 


023637 


PADD 


POM 


PAR 


023637 


PADD 


POM 


PAR 


023637 


PADD 


ROM 


PAP 


023637 



OPTION GROUP 6 

PADD POM 
PADD POM 
PADD POM 
PADD POM 
PADD ROM 
PADD ROM 
PAOD POM 
PADD POM 



OPTION GROUP 7 (ALWAVS PRESENT) 



PAR 


0*4617 


PAR 


H24617 


PAR 


0*4617 


RAH 


024617 


CAR 


024617 


PAR 


024617 


K.AR 


0*4617 


PAR 


024617 



SS15757/60 020460/1 
15761/62 2/3 
15763/64 ft/5 
15765/66 6/7 
15767/70 020470/1 
15771/72 p/3 
15773/74 4/3 
1577S/76 6/7 



U7757/60 020500/1 

17761/62 2/3 

17763/64 4/5 

17765/66 6/7 

17767/70 020510/1 

17771/72 2/3 

17773/74 4/5 

17775/76 6/7 



£23757/60 p*0b20/l 

23761/62 2/3 

23763/64 u /S 

23765/66 6/7 

23767/70 020^30/1 

23771/72 ?/1 

23773/74 4/Si 

23775/76 6/7 



*24757/60 020540/1 
24761/62 2/3 
24763/64 4/5 
24765/66 6/7 
24767/70 020550/1 
2ft771/72 2/3 
24773/74 4/5 
24775/76 6/7 



JMP DMilL 



ADD 
ADO 
AOD 
JMP 
ADD 
ADD 



DMUL 



F3 



UNC 
UMC 



NOT OMUL/ 3D IV 



TRP7 
DMUL/DCIV 



020560/1 

2/3 

4/5 
6/7 
020570/1 
2/3 
ft/5 



PAGE 63 



ADDRESS CONTENT? 



LAB L RBUS SBUS FUNC SHFT STQR SPEC SKIP 



COMMENTS 



FRI 



A U G 



13, l»7b, 2J07 PM 



3214 

3215 

3216 

3317 

3219 

3219 

3230 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3239 

3230 

3231 

3232 

3233 

323* 

3235 

3236 

3237 

3339 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

325* 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 



3477 
3500 



37777777777 
37766J&7777 



ADD 

JMP 



77 



UNIM 



UNC 



OPTION GROUP 7 TO TRP7 







ft 

» 
ft 




PANEL DIAGNOSTICS 












ft 


ENTER 


! AT PADT 


FROM COLD LOAD i 


(OR DUMP) 


IF 0EV*<3 






ft 


(AFTER MZRO IF 


SWCH(8) ) » 


WITH 


S-BANKsO, 


SP1=DEV.*. 






ft 
ft 




PANEL MEMORY TEST 












ft 


EXIT 


TO PANEL 


REG TEST IF 


" DEV«<>0. 








ft 


TEST 


( t ) THROUGH (1 AST 


LEGAL ADnR) USING MEM OR 






ft 


N«ft2 


IF SWCH(O) » (SEF MEM AND 


Nftft? TEST 


FUNCTIONAL 






ft 

8.355. 















3520 


01766013527 


PADT 




SPl JMP 


PR«T 




NZRO 


JMP IF NOT 


3521 


37442363336 






JSB 


DMP3 OB 




UNC 


DB.Ot FINQ 


3522 


37247047050 




RD 


CAD 


Z 


CLSR 


NSMP 


SR.O J 


3523 


3/147377615 




SP0 


CAD 


SBR 


S 




S-BNK,Z_ 


3524 


071575J1417 






SWCH ADD 


LLZ SBR 


DB 


neg 


DB~BNK,OB. 


3525 


377063*3777 






JMP 


AT5T OL 




UNC 


DL-OI MEM 


3526 


3770636777?; 






JMP 


NQT1 OL 




UNC 


SWCH(O) i 



3527 

3530 
3531 
3532 

3533 
3534 
3535 
3536 
3537 
3540 
354i 
3542 
3543 
3544 
3545 
3546 
3547 
3550 



01766023702 
37311600230 
00176777237 
00316777777 
01777777037 
37157777417 
3^157777617 
37711602000 
37451603000 
37431604000 
16477777057 
37251604777 
37157777217 
37751606000 
37411607000 
37231607777 
3/511700003 
06766132761 



PANEL PEG TEST 
EXIT TO PA.MFL I/O TEST IF QEVfcOl. 
TEST REGS, NOP AN.) UBUSJ BASE(CIR)+1, 



N»«2 TESTS, 
DESCRIPTIONS) 



MEMORY TEST 
LAST ADOR+1 

ENDING ADDR 
STARTING ADDS 
TEST IF NO 
ELSE Nftftd 



BASE*2t.. STORED INTO 



ft 

ft 

ft 

ft 

PRGt 

PRGi 



WEG1, RE02,,, THEN REGS ARE CHECKED, THEN BASF IS 
AND THE TEST REPEATS UNTIL TERMINATED BY RUN/HAi-T 
IN AN EXIT TO W.iIT WITH A VALID ENV I WONMENT AFTER 
OR AN EPWOR IS DETECTED, 

IF ERROR PAUSE (IN RljN MODE) WITH ClRsfcJAO BITS (REG 
CORRECT DATA) UNTT|. RUN/HALT Sw (TEST). THEN EXIT 
WITH ClB«Rt:G* (SEE PEG STORE LInES rtELOw). 

SPl. SP2, SP3, STA, CIR» CTR, NOP ON PBUS ANO SBUS 
AND UBUS ON SBUS MUST WORK TO SO^E EXTENT TO PEACH 
PANEL REG TEST AND DETECT AND DISPLAY ANY ERRORS, 



INCREMENTED 
SW (RESULTING 
CURRENT PASS) 

XOR 

TO « A t T 



THE 



SPl 


..JMP 




ROM 


CIR 


INC 


CIR 


INC 


SPl 


ADD 




A OD 




a no 




POM 




ROM 




ROM 


UBUS 


ADD 




ROM 




ADD 




ROM 




ROM 




ROM 




ROM 


CPX2 


JMP 



PIOT 



WATT 





EVEN 


9PI 


000230 


kUS 


<4IR 


spi 






ccpx 


SBP 


DB 


SBR 


S 


OL 


002000 


OB 


3 





4 


SM 


CLSP 


1 


004777 


SBR 


PF4 


PB 


006000 


P 


007000 


PL 


007777 


STA 


100003 




NEG 



JMP IF NOT REG TtS'T 
SP1_NIPT0CIR, CL^ ICS,DISP i 

SPl-BASE+1 

BASE.BASE+1 \ CLR ICS.DISP 

SET UP VALID STACK 
AND CODE SEG oETW 
0»002000 ANO 0,007777 
WITH ICS.DISP FLAGS CL«. 
LOw CORE AND ICS 
NOT INITIALIZED. 



STA.100003 
TERMINATE IF 



RUN/HALT SW 



PASE 64 


ADDRESS CONTENTS 


3269 






3370 


3551 


01236777117 


3271 


3552 


16256777777 


3272 


3553 


165567^7777 


3273 


3554 


16616777777 


3274 


3555 


16636777777 


3275 


3556 


16656777777 


3276 


3557 


16676777777 


3277 


3560 


16336777777 


327B 


3561 


163567?7777 


3279 


3562 


16*16777777 


3280 


3563 


16436777777 


3291 


356* 


16*56777777 


3282 


3565 


16*76777777 


3283 


3566 


16516777777 


3284 


3567 


16536777777 


3285 


3570 


16176777637 


3286 


3571 


16716777777 


3287 


3572 


167367 77777 


328B 


3573 


16756777777 


3289 


357* 


160167 77777 


3290 






3291 


3575 


3777337777* 


3198 


3576 


1676230367? 


3293 


3577 


3^777777760 


329* 


360o 


167623«>3672 


3 295 


3601 


3777777776? 


3296 


3603 


1676236367? 


3 297 


3603 


37777777766 


3398 


360* 


1676236367? 


3299 


3605 


37777777770 


3300 


3606 


167623&367? 


3 301 


3607 


37777777771 


3302 


3610 


167623&3672 


3 303. 


36U 


37777777772 


330* 


3612 


167623*367? 


3305 


3613 


37777777771 


3306 


361* 


167623&367? 


3 30 7 


3615 


37777777775 


3308 


3616 


167623«>367? 


3309 


3617 


01761777700 


3310 


3620 


1*777777776 


3311 


3621 


16762363672 


3312 


3622 


2076236367? 


3313 


3623 


2176236367? 


331* 


362* 


2276236367? 


3315 


3625 


2376236367? 


3316 


3626 


2*76236367? 


3317 


3627 


2676236367? 


3318 


3630 


2676236367? 


3319 


3631 


3*76236367? 


3320 


3632 


35762363672 


3321 


3633 


36762363672 


3322 


363* 


13762363672 


3323 







LAB, RBUS SBUS FUNC SHFT STQR SPEC SKIP 



SIFG 



COMMENTS 



FRI, AUG 13, 11*76, 2107 PM 





SPl IMC 




PL 




UBUS INC 




1 




UBUS INC 




X 




UBUS INC 




RD 




UBUS INC 




PC 




UBUS INC 




IJB 




UBUS INC 




PA 




UBUS INC 




SPO 




UBUS INC 




CTRL 




UBUS IMC 




P 




UBUS INC 




Ci 




UBUS INC 




DB 




UBUS INC 




SM 




UBUS INC 




«;TA 




UBUS INC 




SP3 




UBUS INC 




nUS 




UBUS INC 




dl 




UBUS INC 




SP? 




UBUS INC 




PB 




UBUS INC 




PCLK 


SPl 


TOR 








UBUS JSB 


PRGS 




PL 


Ann 








UBUS JSB 


PRG5 




2 


ADD 








UBUS JSB 


PRG5 




X 


Ann 


• 






UBUS JS«* 


PRG<5 




KQ 


Ann 








UBUS JSB 


PRGc 




RC 


Ann 








UBUS JSP 


PRG«l 




SB 


Ann 








UBUS JSB 


PRGH 




RA 


Ann 








UBUS JSB 


pro=; 




SPO 


fl oo 








UBUS JSB 


PRG5 






SPl ROMN 






UBUS 


CTRL ADO 








UBUS JSB 


PRS5 






» JSB 


PUGS 






Q JSR 


PRGS 






OB JStt 


PRGib 






SM JSR 


PRGB 






STA JSB 


prgh 






SP3 JSB 


PRGS 






OPND JSB 


PPG«S 






OL JSB 


PROS 






SP? JSB 


PRG5 






PB JSB 


PRG3 






PCLK JSB 


PRG?> 





OPNO 



UNC 

UNC 

UNC 

UNC 

UNC 

UNC 

UNC 

UNC 

UNC 
177700 

UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 



PL - 


BASF 


+ 11 SET ICS 


l 


u 


2 


X 


!• 


3 


RO 


M 


* 


RC 


II 


5 


KB 


|i 


6 


RA 


H 


7 


SPO 


It 


10 


CTRL 


II 


11 


P 


II 


12 





li 


13 


PB 


■ I 


1* 


SM 


it 


I 6 ' 


STA 


11 


16 


SP3 


l< 


17 


OPNU 


II 


2C 


DL 


II 


21 


SP2 


il 


2? 


PB 


•• 


23 


PCLK 


)< 


?4 



CK SPl GATING, SUUS NOP, 
RBUS AND SbUS UBUS 

CK PL, RBJS MOP 

CK Z 

CK X 

CK R.4US PO 

CK RBUS RC 

CK RBUS R3 

CK RBUS RA 

CK SPO 



CK CTRL 
CK P 

CK U 
CK DP 
CK SM 
CK STA 
CK SR3 
CK OPNO 
CK UL 
CK SP? 
CK PB 
CK PCLK 



PA3E 65 



332* 
3325 
332ft 

3327 
3329 
3329 
3330 
3331 
3332 
3333 
333* 
3335 
333S 
3337 
3339 
3339 
3340 
3341 
3342 
3343 
334* 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
335B 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
337? 
3373 
337* 
3375 
3376 
3377 
3378 



ADDRESS CONTENTS 



LAB^ rbus sbus func shft stor spec skip 



3635 


01617777777 


3636 


16636777777 


3637 


16656777777 


36*0 


16676777777 


36*1 


16376777777 


36*2 


1&156777017 


36*3 


16156777217 


36*<* 


16156777417 


36*5 


1&156777617 


36*6 


307623«»3672 


36*7 


31762363672 


3650 


32762363672 


3651 


3376230367? 


3652 


01761/70077 


3653 


15777777776 


3654 


16762363672 


3653 


01761777774 


3656 


03777777016 


3657 


167623*3672 


3660 


017617*77774 


3661 


03777777216 


3662 


16762363672 


3663 


01761777774 


3664 


03777777416 


3665 


16762353672 


3666 


01761777774 


3667 


03777777616 


3670 


1076236367? 


3671 


377663&3530 



3672 
3673 
3674 
367S 
3676 
3677 
370A 
3701 



01163017236 
01316707777 
37511600200 
00167777234 
24772377037 
37770327777 
24777777037 
37766363761 



3702 01116777237 

3703 37631640201 

3704 16777777037 

3705 01506062761 



SPl ADD 
UBUS INC 
UBUS INC 
UBUS INC 
UBUS INC 



UBUS 
UBUS 
UBUS 
UBUS 



INC 
INC 

INC 
INC 



RC 

RB 

RA 

CTRH 

SBR 

SBR 

SBR 

SBR 



RD JSB 

RC JSB 

RB JSB 

RA JSB 

SPl ROMN 

UBUS CTRH ADD 

UBUS JSB 

SPl ROMN 

UBUS RBR ADD 

JBUS JSB 

SPl ROMN 

UBUS RBR ADO 

UBUS JSB 

SPl ROMN 

UBUS RBR ADD 

UBUS JSB 

SPl ROMN 

UBUS RBR AQD 

UBUS JSB 

JMf» 



PROS 
PROS 
PROS 
PRGB 



PRQ5 



PRGS 



PRG5 



PROS 



PRGS 
PR<51 



ABS 
PB 
DB 
S 

UNC 
UNC 
UNC 
UNC 
1^0077 

UNC 
)77 7 74 
ABS 

UNC 
177774 

PB 

UNC 
177774 
DS» 

UNC 
177774 
S 

UNC 

UNC 



COMMENTS 




RO - BASE + 


P.S 


RC " 


26 


RB •• 


27 


RA " 


3 


CTRH n 


31 


A-BNK " 


32 


P-BNK •« 


33 


D-BNK •• 


34 


S-BNK " 


35 


CK SBUS RD 




CK SBUS RC 




CK SBUS R3 




CK SBUS HA 




CK CTRM 




CK AbS-BNK 




CK PB-6NK 




CK UB-bNK 




CK S-UNk 




NEXT PASS 





FRI, AUG 13, 1*76, 2807 PM 



COMPARE REG ON UBUS wlTH SPl. IF MO ERROR SR 1 _SP 1 ♦ 1 , RKTUHNJ 
ELSE PAUSE (IN RUN MODE) WITH CIR=U8US XOR bPl UNTIL RUN/HALT 
SWITCH (TEST ( STA»%200) , THEN EXIT TO WAIT WITH CIR*ERROH *. 



« 

PRGts UBUS SPl 
SPl 



SPl 



CIR 
STA 

STA 



XOR 

INC 

ROM 

SUB 

REPC 

PNLH 

ADD 

JMP 



HUS 


MIR N2RO 


SPl 


RSB 


STA 


000200 


"lUS 


MR 




CCPx 




TEST 




CCPX 



WATT 



UNC 



NIR.bAU BITS 

IF NO ERR I NCR SPl, RETURN 

ELSE STA_M1R TO CIR K 

NIR-ERROR * 

CIR-BAD BITS 

PAUSE <SPlsCORR£CT DATA) 

CIR-EPROR ¥ 

EXIT TO WAIT 



PANEL I/O TEST 
SP1*2, SEND TIO TO DEVICES 3 THROUGH *177» PAUSIMG (IN RUN MODE) 
WITH CIRbDEV« OF FIRST RESPONDING D£V UNTIL RUN/HALT SW, TH£N 
WAIT (IN HALT MODE) WITH ClRsOEV STA UNTIL RN/HLT ( TEST , STA<%200 ) , 



NIR-SP1„DEV#+1 
RC_RUN,CI^.NIR,PAN FF K 
SET RUN, CIR-DEV*, RESET PAN 
DONE. IF STA_DEV# = «200 



» TH 


IEN TEST NEXT 


DEVI AFTEI 


* LAST DEV 


PIOt 


SPl INC 


BSP1 


MIR 




ROM 


RC 


040201 




UBUS ADD 




CCPX 




SPl JMP 


WAIT STA 


bitb 



PA3E 66 


ADDRESS CONTENTS 


33*9 


3706 


01031702400 


3380 


3707 


04777433777 


33«1 


3710 


12722303762 


338? 


3711 


3776636370? 


33*3 






338* 






3385 






3386 






3387 






3389 






3389 






3390 






3311 






3393 






3393 






3394 






3395 






3396 






3397 






3399 






3399 






340 






34 01 






3403 






340 3 






340* 






3405 






3406 






3407 


3712 


3/767377773 


340B 


3713 


16772027277 


3 <» 9 


3714 


16777423277 


3410 


371=5 


14777707377 


3411 






34 IS 






3413 






3<»lft 






3415 


3716 


067661J2761 


3416 


3717 


22217b57477 


341 7 


372o 


265367 77457 


34] 8 


3721 


lb357427377 


3419 


3722 


03737557617 


3420 


3723 


0J737767417 


3421 


3724 


3767777776? 


3423 


3725 


3SJ157777017 


34?3 


3726 


37631643201 


342»fc 






3425 






3426 






««« WARNING i 


1 2) «»« RBR CONFU 


3427 


3727 


0J657777017 


3428 


373o 


16317557073 


3429 


3731 


373023*>371? 


3430 


3732 


33177567157 


3431 


3733 


0U77767437 


3438 


3734 


0M671S7437 



LABi ReUS SBUS FUNC SHFT STOR SPEC SKIP COMMENTS FRIi AUG 13, 1^76, 2107 PM 

SP1 ROM IOA 102400 SEND Tlo CMO TO DEV 

cpxi add sri odd i/o timeojt? 

IOD JSB ATS6 SP2 UNC NOJ DISPL DEV* THEN DEV STA 
JMP PIOT UNC TEST NEXT DEVICE 

ft 
» 

* MEMORY TEST 

» MEMORY TEST (ENTRY AT ATST) BEGINS WITH ONE OF THE 
« FOLLOWING OPERATIONS AND EXECUTES THEM In THE. SEQUENCE SHOWN, 

* Fl SP3(15) OPERATION 

» FILL MEMORY LOCATIONS UPWARu WITH THEIR OWN 
» ADOR+BANKJ READ BAC* UPwARO. 

» 10 FILL MEVORY LOCATIONS UPWARD WITH PARITY (0 OR -1) 
» CALCULATED ON THEIR ADDRSj READ BACK UPwwRD, 

* 1 FILL MEMORY LOCATIONS DOWNWARD WITH THE COMPLEMENT 
» OF THEIR ADDR+BANKj READ PACK UPWARD. 

* I I FILL MEMORY LOCATIONS UPWARD WITH COMPL ( PARI TY ) 

* CALCULATED ON THEIR ADD«Sf READ BACK UPWARD. 

* MEMORY IS TTSTED PROM DB-RANK.DB THROUGH S-BANK,?. 

* TEST REPEATS UNTIl. TERMINATED BY ^UN/HaLT SW (EXIT TO w«IT AFTER 
ft CURRENT OPERATION) OR AN ERROR IS DETECTED (SEE READ BACK bELOW ) . 
ft F3 SHOULD BE ON UNLESS AN ERROR IS DETECTED, AND MAMER IS 
» DECREMENTED BEFORE EACH OPERATION. 
» 

ft PARITY CALCULATION: RA=ADDR» CT« ( = > *PAR I TY OF PREVIOUS ADDHj 

» RETURN) WITH F2_CTR { 5 1 „P AR I T Y OF AnDR, THE STARTING ADD*, IN Db, 

» DETERMINES WHETHER PARITY OR COMPi. < PARITY) IS EVEN Ofc OOQ, 

ft 

ATlr RA CAD CALC PREVIOUS AODR 

UBUS WEPC TNCT EVEN COMPL P FOR THE 1 AddEO 

UBUS Apn SRi INCT EVEM AND FOR tACH 1 DELETED 

CTRL Ann L*»F RSM wHtN AIOR TS InCREMENTEH 

« 

* INITIALIZATIONS MEMORY TEST ENTRY POINT AT ATST. 
ft Fl AND POSSIBLY SP3<15) ARE C0MPLE M ENTtO TO OET INITIAL OPERATION, 

« 

ATSi CPX2 JMP WATT MEG TEHMINATF IF RUN/HALT Sw 

RA„Of~, SH-NZWOl COMPL Fl 
COMPL SP3(15) IF NFl 
F2.CTR(5)-SP3(lb> 
INIT ADDRsS-FNK.2 
IF NFl AND FB, 
ELSE INIT ADDHaDB-BNK.QB 
ORS-BAN'K.INIT BrtNK 

RC-RUN,DPE,CIR«NIR,PAN Ff- * 
<» 

ft FILL MEMORY! ABS-BNK , RAsADDR | NFl AND IrZ IF 00*NWAkD, 
ft 
RBR CONFLICTS WITh PREFETCH ON INSTR ENTRY 

ATS? RBR ADD PB ABS HB„ABS-BN<| SF3 

PA UBUS ADD SP1 SF3 NFl IF NH SP1-ADDW+BNK 

JSB AT10 SP1 UNC ELSE SPl.O, CALC Parity 

PA ADD BUS WRA F2 STORE S»l IF UPWARD 

SPl ADD RUS DATA UNC AOOR TEST OR PARITYsO 

SP1 CAD BUS DATA NFl ELSE STORE COMPL SPl 



CPX2 


JMP 


WATT 




NEG 


OB 


ADO 


OUSH 


SF] 


NFl 


SP3 


INC 


«?P3 


CF1 




UBUS 


Ann 


CTRL 


LBF 


EVE 


RBR 


Ann 


SP2 


S 


NFl 


RBR 


ADD 

Ann 


SP2 

RA 


OH 


UNC 


SP? 


ADD 


SBR 


CBS 






POM 


PC 


043201 



PA3E 67 


ADDRESS CONTENTS 


3433 


3735 


377663*>377,1 


3434 


3736 


22723017773 


3435 


3737 


0372337741? 


3436 


3740 


37667047773 


3437 


3741 


16157777012 


3438 


3743 


35766013727 


3439 






3440 






3441 






3443 






3443 






3444 






3445 






3446 






3447 






3448 






3449 






3430 


3743 


25357777057 


3451 


3744 


22677777777 


345? 


3745 


0J777777417 


3453 


3746 


16157777017 


3454 


3747 


33137777177 


««• WARNING 


( I) ««« RBR MAY C< 


3455 


3750 


03317557013 


3456 


3751 


373023^371? 


3457 


375a 


03657577017 


3453 


3753 


01307377777 


3459 


3754 


0472l637oon 


3460 


3755 


26163017234 


3461 


3756 


35766003766 


3465 






3463 


3757 


357377^6772 


3464 


, 3760 


337617*70001 


3465 


3761 


3573777777ft 


3466 






3467 


3763 


31777777037 


3468 


3763 


35172377237 


3469 


3764 


06737531177 


3470 


3765 


35773377031 


3471 


3766 


33172347237 


3472 


3767 


3777032>777 


3473 


3770 


37767307031 


3474 






3475 


3771 


33723017062 


3476 


377? 


0372337761? 


3477 


3773 


33676417777 


3478 


3774 


32156777017 


3479 


3775 


3776621374? 


3480 


3776 


35766013747 


3481 


3777 


375063&3716 


3482 






3483 






3484 






3485 






3486 







LAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2107 PM 



RA 
RB 
RA 

RB 



DB 
RBR 



ATSi 

ft 

« 

ft 

ft 



JMP 
XOR 

XOR 
CAD 

UBUS ADD 
SP? JMP 



ATS9 



ATS? 







UNC 


SP2 




nzro 


SP2 


DB 




RA 




NSMF 


SBR 


ABS 





NZRO 



(BAD DATA OR ILL 
BAD BITS (CORRECT 



READ BACK: IP ERROR 
DSPL <IN RN MODE) 
RN/HUT SW, THEN WAIT (IM HIT MODE) 
ADDR IN ABS-BNK.SPO, CORRECT DATA I 
UNTIL RUN/HALT SW ( TEST , STA = > , THE 

Nft#2 TEST USES ATS5 TO DISPLAY BAo DA 
STA«0, RCs04O2Ol, \IR»BAD BITS, RBs 

PANEL I/O TEST USES ATS6 TO DISPLAY D 
STA<»?00, RC*040201, NIR»DEV#» SP2« 





SP3 


ADD 




CTRL 


CLSR 






DB 


ADD 




PA 








RBR 


ADD 






DB 






UBUS 


ADD 




SBR 


ABS 




ats a 


RA 


ADD 




BSPO 


ROA 




CT wITH PREVIOUS BANK SELECTION 




RA 


RBR 


ADO 




SP1 


ABS 


NFl 






USB 


AT10 


SP1 




UNC 




RBR 


ADD 




(iB 


ABS 


NF? 




SP1 


CAD 




SP1 








cpxi 


WOMN 




SP2 


037Q00 


SP1 


OPND 


XOR 




«US 


NIR 


NZPn 




SP? 


JMP 


ATS7 






ZERO 


ATSt; RB 


SP? 


ADD 


swab 


SP2 








RA 


ROMN 






170001 


UBUS 


i SP? 


ADD 




SP2 






ATSa 


RC 


ADO 






CCPX 






SP? 


REPC 




«us 


MIR 






CPX2 


ADD 


LL/ 


SP2 


CF3 


NEG 


RC 


SP? 


I0R 






CCPX 




ATSt 


RA 


REPC 
PNLR 




PUS 


NIR 


F3 
TEST 


RC 




CAD 






CCPX 


RSB 


ATSf I 


RA 


XOR 




SP? 


SF3 


NZRO 


RB 


RBR 


*OR 




SP? 


s 






RA 


INC 




RA 




NZRO 




RB 


INC 

JMP 


ATS3 


SBR 


ABS 


SRNZ 




SP? 


JMP 


ATS4 






NZRO 


ATSt 




JMP 


ATSJ 


STA 




UNC 


ft03?7 IK 


PARITY 










*0777 IK 


PARITY 










»13?7 IK 


PARITY 










•1777 IK 


PARITY 










»23?7 IK 


PARITY 











FILLING UPWARD IF Fl OR NF2 
ELSE DOWN} CK BNK,A()i)R 
SP2.Q IF LAST BNK, ADDR, 
ADDR.ADDR-1, DECR BNK IF 
ADD«« -1 (MO AFFECT IF 0) 
FILL NEXT ADDR IF NOT DONE 

ADDR, CPU TIMER,P£) CF3 AND 

XOR ACTUAL DATA) IN ClR UNTIL 
WITH ClR*ADDR+CPXi (216) (ALSO 
N SP1, ACTUAL DATA IN OPND) 
N CONTINUE WITH NEXT ADDR. 
TA AND ADOPI 
CPXI BITS, SP2,RAsADDR. 
EV*S AND DEV STA{ 
DEV STA. 

SR.OI INIT CTR FOR PARITV 
INITIALIZE ADDR*. PA_DB 
INITIAL IZE BANK: 
ABS-SNK.DB-BNK 
REAO (ABS-BNK,RA) UPWAWD 

IF NFl SPl.ADDR+BNK 
ELSE SPl.O, CALC PARITY 
RB-AB5-BN*! COMPL SPl IF 

DWN flDDR TEST.-- OR PARITY*]. 
SP2-NZR0 IF ILL ADDR,TM,PE 
MIR. BAD BITS IF ANY 
JMP IF NO ERROR 

SP2.ADDR (0 J3) i^K, 
CPXI (?: 6) , ADD* ( 15) 



HUN,DPE,C 

NIR. ADDR, 

CF3I DISP 

TOG MODE 

HLT WITH 

C 

A 

RN,DPE,CI 

SF3J CHEC 

SP2.0 I 

ADDR. AD 

INCR BN 

JMP IF Fl 

READ BACK 

ELSE STA. 



IR„NIR,PAN 

ETC. (SP2) 

L BAD BITS 

TO HLT,CIR-NIW,PAN 

CIRxADR IN ABS,SP0 

ORRECT DATA IN SPl 

CTUAL OATA IN OPND 

R.NIRI RET IF SUBR 

K BNK, «DDR J 

F LAST BNK, ADDR, 

DR+1, 

K IF ADDR-0 

LLING (UPWARD) 

IF NOT DONE 
0, NEXT PASS 



PA3E 68 ADDRESS CONTENTS LAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2»07 PM 



3*8 7 

3*SB 

3*89 

3*«0 

3*91 

3*92 

3*93 

3*f<» 

3*95 

3*96 

3*97 

3*9 B 

3*99 

3500 

3301 

3302 

3303 

350* 

3305 

3906 

3507 

3S0B 

3309 

3310 

3311 

3318 

3313 

331* 

3315 

3516 

3S17 

3S13 

3519 

3520 

3B21 

3522 

3S23 

3524 

3325 

3526 

3527 

3328 

3329 

3330 



0777 32312035756 
1777 003666'0515 
2777 06563566317 



2373 
237* 
2375 
2376 
2377 



2775 
2776 
277* 



176* 
1765 
1776 



01526263140 
00761*10020 
1*157777*17 
377663631*0 
2315010*577 



2557 2662236277s 



1*167777155 
37167307*37 
1*762712217 



1626 3776236176* 



011777^217* 
37766361724 
0116636*167 



•277T IK PARITY 
#33t7 IK PARITY 
»35nl IK PARITY 
S.O77T 2K PARITY 
M777 2K PARITY 
4,2777 2K PARITY 
•35 1 2K PARITY 
• 



DSG2 PATCH, SEE 2373 IN 0SG2| 
RESTORE DB-BNK FROM CTP IF MD 
SECOND PARITY LINE ADDED TO S 



REQUIRES REBURN */5 0-7. 
S (AmD EITHER DSEG IS AHS). 
ECTOl */S. 



SBR 



fc23->3 

SP1 JMP INT7 SP3 
CIR ROMN 
CTRL ADD 

JMP INT7 
fc23 7 7 2K PARITY 

* 

» 
« 
fc.25.?7 



NPR\' ALL DSEG JSERS <*RE PKv 
0020 NZRo CIR(11)«0 TOR MUS ONLY 
DB U8-BNK.CTR IF MUS 

UNC TRAP 

SECOND PARITY LINE 



IXI2 PATCH, SEE 2557 IN IXl2» 
STORE -1 AT SP0-CTR«QI-13 FOR 
THIRD PARITY LINE ADDED TO SF 



REQUIRES REBURN 4/5 0-7, 
IXIT PATHS (1) , (2) , (2A) . 
CTOR */5. 



fc.27-5 
1*24 SPG 



OPND JSB IX?A PC 



CTRL SUB 
CAD 
!>,27t* 2K PARITY 



BUS 
RUS 



wRA 
DATA 



UNC 



RSB 



OVERLAY 25S7 

(QI-13). -1 

RETURN 

THIRD PARITY LINF 



« 
« 

&16?6 



SIO P*TCH, SEE 1626 IN SIOJ 

REQUIRES NEW 2/3 6 AND REBlJ 
READ DRT PTR AT SPlftu (AFTER 
SECOND PARITY LINE ADDED TO S 



RN 2/3 0-5i7. 
WRITF) . 
ECTOR 2/3. 



U7** 

SIOo SP1 



USB Slo? 



SP1 



ADO 
JMP 



SLl 
IOPA 



BUS ROA 



U7?6 2K PARITY 



UNC 



UNC 



OVERLAY 1626 

READ I/O PTR 

IOPA, R£T WILL t»E TO SIO 

SECOND PAHITV LINE 



PA9C 69 



ADDRESS CONTENTS 



LA8 L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1»76, 2107 PM 



3531 
3533 
3533 
3530 
3S35 
3536 
3537 
3538 
3539 
3540 
3541 
3548 
3543 
354* 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
355* 
3555 
3556 
3S57 
3558 
3559 
3560 
3561 
-3562 
3563 
356* 
356S 
3566 
3567 
3568 
3569 
3S70 
3571 
3572 
3573 
357* 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
358* 



700O 


37157777017 


7001 


37176777157 


7008 


37176777437 


7003 


223H200020 


7004 


3/17777702*5 


7005 


37176777057 


7006 


37177777*37 


7007 


37176777177 


7010 


37611607777 


7011 


26757*07417 


7012 


306177'2777 


7013 


163027^177* 


7014 


0J6777?1*16 


7015 


17157777017 



7016 
7017 
7020 
7021 
7022 
7023 
702* 
7025 



37631607*0* 
3053777705* 
3&1167771S* 
3*7627'1031 
3*177777*37 
3*762701031 
253*3007774 
33326367020 



7026 33177777157 

7027 3*707377457 
7030 34302367021 



& 

« 

« 
« 

Vr 
Q 

i70 
NQO 



SECTOR ]* 
N««2 MEMORY TEST 
DMUL/DDIV 



N»«*2 MEMORY TEST 
INITIALIZATION: ENTRY POINTS AT NQTS AND NQTl(g),. 
DB-BNK,DB«FIRST BLOCK, S-0NK , Z*LAST BLOCK, 
TEST FOR INTERLEAVED MEMORY, PB-2WI FLAG) 
ABS-BNK,SP1 AND RA.STARTING ADD* OF FIRST BLOCK, 
RD. DELTA ENDING Ar)D« IN BLOCK, F2..1. 



00 
1 



ADD 
INC 
INC 
DB ROMI 
RBUS ADO 
INC 
ADD 
INC 
ROM 
OPND 4D0 
RD ADO SLl 
SP1 UBUS CAND LLZ 
UBUS RBR ADD LLZ 
SBUS AOD 



SBR 


flBS 


BUS 


WRA 


BUS 


DATA 


SP1 


000020 


PUS 


CRL 


"US 


CMD 


BUS 


DATA 


BUS 


P.OA 


PD 


007777 


PB 


SF2 ZERO 


RD 




SP1 




RA 


D8 


SBR 


ABS 



ABS-OANK_0 

STORE 1 AT ADOR 1 

SP1-DFH t 3) . . . 

STORK AT ADDR 1 IN MOD 0! 

IP INTERLEAVED ADDR 1*1 

ELSE ADDR 1=0 

RD-BLOCK RANGE UK-1) 
PB.2WI FLOG (0=F,1»T), SF2 

BLOCK RAN3E_tfK-2 IK 2WI 
«BS-6NK,SP1 AND RA„STARTjN.V 
ADDR«OB-BNK,Un (0 52,3) ,0 



# 
NQ1 

NQl 
NUl 



FILL BLOCK WITH 0»S OR 1»S (DL)« ABS-BNK,SP1 AND RAsSTARTING ADOR, 
RDsOELTA ENDING An->R, PB=?WI FLAGt RC.CMPL MCUDP.CLR DPE K«S, 
SPO. FIELD STARTING ADDR, BP3. ENDING ADOR, SR_0, CTR_0, SPl MODIF. 



SP1 
7 SPl 

? RC 

RC 



RD 
PB 
DL 
DL 
DL 



ROM 
ADO 
INC 

CAND LLZ 
ADO 
CAND LLZ 



PC 007*06 
SP3 CLSR 
BSP1 WRA 

CCPX 
BUS DATA 

CCPX RSB 



SPl SP3 XQR 



CTRL 



RA 



JMP NQn SPO 



ZERO 
UNC 



MC.CMPL MCUDP,CLR DPE K»S 
SP3-ENDING ADDR, SR-0 
FILL BLOCK, EXCEPT STARTING 
ADDR, WITH 17 HITS Of 
0»S (EVEN PARITY) IF DL=0 
OR 17 BTS OF lis IF DLs-1 
RET IF SUBRI CTR„0 
SPg. FIELD STARTING ADDR 



* 

» 
« 
* 
NQ1 



TEST BLOCK! MOvINO 1»S (Psl) THROUGH FIELD OF 0»S (P=0), 

DL = 0, ABS-HNK,SP0 AND RAssTArTING ADDR, SP3sENDING ADDR, RDsDELTA 

ENDING ADDR, PB*2WI FLG, RC«CMPL MCUDP.CLR DPE, F2sl, SRsO, CTRsO, 

IF ERROR EXIT TO NQBO-3 WITH ABS-RNK , SPO. FIELD ADDR, 

RA.TEST ADDR, SP1.BAD DATA BITS, RB„SELECTED CPX1 BITS, DL-OJ 

DATA ERRORS ARE DETECTED BEFORE CPX1 ERRORS. 

ELSE EXIT TO NQ30 WITH SPO-ENDING ADDR, SPl,RA,R8,Fl MODIFIED. 



RA 


ADD 


BUS 


WRA 


DL 


CAD 


DL 


CF1 


DL 


JSB 


NQ12 SPl 





UNC 



CF1J WRITE TEST WORD, 
PRESERVING DL IN SPl 



PAOE 70 



ADDRESS CONTENTS 



LAB| RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2107 >M 



3585 
3586 
3587 
3589 
3589 
3590 
35<il 
3592 
3593 
359* 
3595 
3596 
359T 
3598 
3599 
3600 
3601 
3602 
3603 
360* 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
361? 
3613 



7031 
703? 
7033 
7034 
7035 
7036 
7037 
70*0 
70*1 
70*2 
7043 
7044 
7045 
7046 
7047 
7050 
7051 
7052 
7053 
7054 
7053 
7056 
7057 
7060 
7061 



0J7633 
141633 
377717 
377673 
377777 
377767 
377673 
317777 
0X7061 
371777 
361367 
046416 
167660 
2b7677 
331777 
263060 
317777 
046414 
377663 
263070 
377661 
017660 
046416 
167660 
377663 



77013 
7 723ft 
00103 
'5036 
'5025 
76025 
'5031 
''5037 
37062 
67175 
77175 
37Q00 
1713* 
77315 
77177 
1712ft 
J5037 
11000 
67132 
17777 
4'043 
17133 
37000 
17134 
6710? 



RA RBR 
UBUS CTRL 

UBUS 
RBUS 
RBUS 
RC 



SPO 
NQU SPO 



SPO 



RC 
SP1 

PB 

CPX1 

UBUS 

SP3 

RA 

OPND 

RC 

CPX1 



MQ1« OPND 

SPi 

CPXl 

UBUS 



XOP 

XQR 

ROM 

CAD 

ADD 

INC 

CAD 

ADO 

JMP 

ADO 

INC 

ROMN 

JMP 

SUR 

ADD 

JMP 

ADD 

ROMN 

JMP 

CAD 

JMP 

JMP 

ROMN 

JMP 

JMP 



RLZ 

RLZ 

SWAB 

RLZ 

RLZ 

NQ^3 



NQBO 



NQ93 
RLZ 

NQ32 

NQ(4 
NQll 

NQSO 
NQ10 



ABS 
BUS MIR 
1001 
CCPx 
CCPX 
CCPX 
CCPX 
CCPX 
DL 

BUS ROA 
RSPO ROA 
RB 0370 

HBF 
BUS ROA 
SPI 

CCPX 
RB 1000 



NIP-TEST ftDDR(0!9)*BNK 
(CTPsTEST ADDRU0115) ) 



SPI 



RB 



03 



NEG 
UNC 

00 

NZRn 



NZRq 



NZRo 
UNC 
NZRO 
Fl 

NZRO 
370 

NZRO 
UNC 



RUN»CLR 
RUN,CLR 
RUN,NIRT 
CLR APE 
CLR UPE 
DL-SP1I 
READ FIR 
READ O'S 
RB.CPXl ( 

IF ERR 
SF1 IF N 
READ 1»S 
JMP IF P 
ELSE CLR 

IN O'S 

OTHER 
JMP IF N 

AND NO 
JMP IF E 
RB.CPXl ( 

ERP RE 
END OF ^ 



Illegal addr 
cru timer 
ocir.clh spe 



OF l'S 



JMP IF FIELD 
ST O'S WORD 

WORD 
2!6), JMP 

READING l'S 
OT END UF BLOCK 

WORD 
OSS ERR IN O'S DATA 

EXPECTED DPE 
, RB.CPXK6), 
ERRS CNT AS l'S 
ERR IN l'S 

OF BLOCK 
l'S DATA 
JMP IF 
l'S LAST 



T END 
RR IN 
216) , 
ADING 
LOCK 



» TEST BLOCK 

# DL* -1, AS 

• ENDING ADD 



I MOVING O'S (PsO) THROUGH FIELD OF l'S <Pe1>. 

S-BNK,SP0 AND RAsSTARTIwG ADDR, SP3*F.NDlNG ADDR f RD.DFLTA 

R, P8«2WI, RCsCMPL MCUDP,CLR DPE, F2*l, Fl *0 , SR . CTRsQ , 



3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 

JOrc 

3623 
362* 
3625 
3636 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3639 
3639 



7062 


37177767175 


7063 


3613677717R 


7064 


317777'5037 


7065 


0*641411000 


7066 


37766147134 


7067 


25767777315 


707 


33177777177 


7071 


26307007777 


7072 


37766367126 


7073 


0*641637000 


707* 


1676601713? 


7075 


26306017133 


7076 


377661*7063 


7077 


317777'5037 


7100 


04641411000 


7101 


3776636713* 


7102 


33177777157 


7103 


37762367021 


7104 


303277 77775 


7105 


2S767777313 



IF ERROR EXIT 
RA.TEST ADDR, 
DATA ERRORS AR 
ELSE SP1,RA,RB 



TO NQB0-3 WITH AbS-UNK 
SPI. BAD DATA BITS, RH. 
E DETECTED BEFORE CPX1 
,F1 MODIFIED. 



NQ2** SPO 
NQ2t SPO 



SPO 



MQ2* 



NQ3- 



ADD 

INC 

ADO 

ROMN 

JMP 

SUB 

ADD 



RLZ 

NQBO 



PB 
RC 
CPX1 

SP3 

RA 

OPND CAD 

s>mp Nomi 

CPXl ROMN 
UBUS JMP 
OPND JMP 
JMP 



SPO 
RA 



RC 
CPXl 



RA 



RD 
SP3 



ADD 

ROMN 
JMP 

ADD 
JSB 
SUB 
SUB 



NQi2 



PUS ROA 
BSPO ROA 
CCPX 



UNC 



RB 



BUS 
SP] 

RB 



NQpt? 

NQB1 SPI 
NQ?* 
RLZ 

RB 
NQsn 



1000 NZRO 
Fl 

HBF 

ROA 

ZERO 
UNC 

370 00 

NZRo 
NZRn 
Fl 

CCPX 

1000 NZRo 
UNC 



BUS WRA 



UNC 



SPO 



HBF 



,SP0_FIELD ADDR, 
SELECTED CPXl BITS, DL* -11 
ERRORS. 



READ FIRST 1 «S wORO 

READ l'S WORD 

DPfc EXPECTED IN O'S IF NOT 
STARTING ADDR, RB_CPX1<6> 
OTHER ERRS CNT AS x»S 

SF1 IF NOT END OF BLOCK 

READ O'S WORD 

JMP IF POSS ERR IN l'S DATA 
RB.CPX1 (2J6) , JMP 

IF ERROR READING l'S 
JMP IF ERR IN O'S DATA 
JMP IF NOT END OF rtLOCK 
RB.CPXK6), CLR EXPECTED 
DPE IN READING O'S LAST, 
OTHER ERRS CNT AS l'S 

RESTORE TEST LOC TO 

BACKGROUND FIELD 
RESET FIELD ADDR 
SF1 IF NOT DONE WITH BLOCK 



PA9E 71 


ADDRESS CONTENTS 


3640 


7106 


36676557773 


3641 


7107 


163*63<>7026 


364g 






3643 






364* 






3645 






3646 






3647 






364B 






3649 






3650 






««• WARNING 


( 2) «»♦ RBR CONFL: 


3631 


7110 


03677777017 


3652 


71H 


25316*17057 


3653 


7112 


33156777017 


365* 


7113 


36763*27774 


3655 


7114 


30307777774 


3636 


7115 


03763017613 


3657 


7116 


25767117762 


3658 


7117 


016663&7016 


3659 


7120 


3*707367777 


3660 


7121 


16703767077 


3661 


7122 


216567&/436 


3662 


7123 


166*3777437 


3663 


712* 


16*263471*5 


366* 


7125 


37506367000 


3665 






3666 






3667 






366B 






3669 






3670 






3671 






3672 






3673 






367* 






3675 






3676 






3677 






3678 






3679 






3680 






3681 


7126 


33*03017775 


3682 


7127 


3<*76600705<» 


3683 


7130 


20766007075 


368* 


7131 


37777777217 


3685 


7132 


37777777217 


3686 


7133 


37777777217 


3687 


713* 


37*17777*75 


3688 


7135 


01177777237 


3689 


7136 


37631640201 


3690 


7137 


033673*7017 


3691 


71*0 


177221*3757 


3692 


71*1 


167623*7167 


3693 


71*2 


167623*7157 



LAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13i 1*76, 2IQ8 PM 



RA 



PB INC 

UBUS JMP 



RA 
NQU rTRL 



NF1 
UNC 



RA,CTR_NEXT TEST ADDR, JMP 
IF NOT DONE WITH dLOCK 



tt 
» 

tt 
« 
* 
tt 
tt 
tt 
« 
WITH 

NQ*n 



CHECK FOR END OF PAS$» S-BNK,ZsLAST BLOCK, 

ABS-BMK,SP3sENDlNG Af)DR IN CURRENT BLOCK, PB»2WI FLAG! SR_0, 
IF 2Wlt TEST EVEN THpN ODD ADDRS O^ CURRENT BLOCK BEFORE 
GOING ON TO NEXT BLOCK. IF PASS NOT COMPLETE EXIT TO NU10 
WITH ABS-BNK,SPl AND RA-STARTINQ aODr IN BLOCK TO BE TESTED, 
MAIN PANEL INITIAL ENTRY AT NQTS WITH SR«0? 
FRONT PANEL ENTRY AT NOTl WITH DLsOi F3"0, SRaO, 



PREFETCH ON INSTR FNtRY 



NQT«8 

NOT? 

NQ*| 
tt 

» 

« 



# 

« 
tt 
NQ8-* 



NQ8?> 
NQ8i 
NQ8f, 



RBR ADO 

SP3 INC 

RA INC 

SPl PB AND 

SP1 RD SUB 

RA RBR XOR 

Z SP3 CAD 

SPl JMP 

DL CAD 

UBUS AND 

UBUS Q INC 

UBUS AND 

UBUS JMP 

JMP 



RA 

SPl 

5BR 

SPl 



NQjo RA 
DL 
r>L 
»B 
KB 

NO^S 

NQol STA 



ABS 

CLSR NZRQ 

ABS 

EVEN 



nzro 

NCRv 

UNC 

UNC 

UNC 

UNC 



SF3 
CF2 
CF2 



F3 

UNC 



ERROR 
OTHER 
F2=l, 
RBsSE 
IF ER 



RET T 
<CLK/ 
AT AT 
RET T 
NQ40 



PROCES 
S ENTER 
ABS-BN 
LECTED 
RORt SR 
SR 
SR 
SR 
NQI5 
TTY) IF 
S5 IN M 
NQ40I 
ENTERS 



SINOJ 

AT NQ 
K.SPOs 
CPX1 B 
-3 IF 
.2 IF 
.1 IF 
sO IF 
OR NQ2 
F3 <N 
AlN MI 
• P.CIR 
AT NQ8 



POSSIBL 
80-21 D 
FIFLD A 
ITS, DL 
ENTRY A 
ENTRY A 
ENTRY a 
ENTRY A 
5 IF NO 
tttt? INI 
CRO-COD 
,SP2,RC 
5 WITH 



CR 
TE 
CP 
EL 



SPO 



SPO 



RA 

DL 

P 



SPl 



RBR 



XOR 
JMP 
JMP 
ADD 
ADD 
ADD 
ADD 
ADD 
MOM 
CAD 



P 



NQ15 
NQ^5 



SBUS JSB 
UBUS JSB 



P 

RUS 

RC 

CTRH ABS 
ATS5 SP2 
N097 



UBUS JSB NQB6 



E ERRORS I 
ATA ERRORS 
DDR, RA=TE 
sO IF 0«S 
T NQB3I FI 
T NQ82I 
T NQ81I 
T NQ80J 
ERROR! 
TIATED FRO 
E IF NF3 { 
,CTR,F1 MA 
F2*0 TO PR 

NZRO 

ZERn 

ZERO 
INSR 
INSR 
INSR 
SF1 
NIR 
0*0201 

F3 

Fl 

F3 

P3 



RA-ABS-BN*! SP1-FIRST ADOR 
OF NEXT BLOCK IF NOT 2WI 
INCR BANK IF NEC» SR-0 

SPl. FIRST ADDR+1 OF CURRENT 
BLK IF NOT DONE WITH 2WI 

CURHENT BLOCK LAST BLOCK? 

MOI RA.BE3 ADDR, TEST NEXT 
YESJ CMPL DL (fiACKGR FIELD) 
MP INIT ENTRY? DL-0, F3.I 
INCR PASS IF DL*0 & <> INIT 
RB.O IF INIT PASS? FP ENTRY 
PRINT PASS CTR IF MP 
5TA-0, NEXT PASS 



N FIELD DATA ENTER AT NQ83, 

DETECTED BEFORE CPX1 ERRORS, 
ST ADDR, SPlsBAD DATA BITS, 

field or -i if i«s field, sr=o, 
eld data error 

xl error in reading field data 
st data error 

XI ERROR IN READING TEST DATA 

SE PRINT ERRORS ON DEV# 3 

M MP) OR USE FP DISPLAY ROUTINE 

Ntttt£ INITIATED FROM FP). 

Y BE MODIFIED, 

INT RBaPASS CT*J RET TO NQ*1, 



FRR 

RE 

OR 

SR-3 

SR-is 

SR-1 

P.FI 

NIP- 

RC-K 

CTR- 

FP 

PRIN 

PRIN 



IF FIELDOTEST ADR ELSE 

T TO 0»S FLO W/O DPE CK 

TO 1»S FLD W/O CPX1 CK 



ELO ADDR, SF1 

BAD BITS FOR FP DISPLAY 

FOR ^P DISPLAY 
CTRMj SPH-BNK, 

DISPLAY IF FP (2C JMP) 
T BAN* IF MP 
T FIE^D ADDR IF MP 



PA9E 72 


ADDRE 


369* 


7143 


3695 


7144 


3696 


7145 


3697 


7146 


3698 


7147 


3 §99 


7150 


3700 


7151 


aroi 


7152 


3708 


7153 


3703 


7154 


370* 


7155 


3705 


7156 


3706 




3707 




3708 




3709 




3 710 




3711 




3718 




3713 




3714 




3715 




3716 




3717 




3718 




3719 




3720 


7157 


3 721 


7160 


3 722 


7161 


3 723 


7162 


3724 




3725 


7163 


3726 


7164 


3727 


7165 


3728 


7166 


3 729 


7167 


3730 


7170 


3^31 


7171 


373? 


7172 


3^33 


7173 


3734 


7174 


3735 


7175 


3 '3 6 


7176 


3 *3 7 


7177 


3"*33 


7200 


3 '39 


7201 


3740 




3741 




3 74 2 




3?43 




3 74 4 




3745 




3 74 6 




3747 


7233 


3748 


7234 



LA8 L RBUS SBUS FUNC SHFT sTOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2103 PM 



33402347157 
01402347157 
32402347157 
34761700000 
16417777761 
37762347157 
37051600015 
37762347170 
37051600012 
37762347170 
37766167U0 
37766367125 



20*153^2477 
3735177777? 
20761600001 
16766367167 



207753 
167753 
164153 
167616 
160516 
370317 
370317 
1*7614 
377663 
377777 
377663 
373471 
3 77777 
370516 
377663 



52777 
'2777 
{2777 
00007 
00060 
01403 
02403 
10400 
67171 
3'277 
67163 
47457 
07777 
00040 
67170 



NQ8«5 



PA 
SP1 
RB 
OL 



JSB NQ86 

JSH NQ66 p 

JSB NQA6 P 
ROMN 



SR 



UBUS ADD 
JSB 
ROM 
JSB 
POM 
JSB 
JMP 
JMP 



NQ86 

NQlR 

NQga 
NQ40 
NQ4»1 



TOD 



IOD 



F3 
F3 

F3 

100000 

F3 

000015 
F3 

000012 
F3 
F2 
UNC 



PRINT TEST ADOR IF MP 
PRINT BAD DATA BITS IF MP 
PRINT SEL CPX1 BITS IF MP 



PRINT DUO) ,SR IF MP 

CARRIAGE RET IF MP 

LINE FEED IF MP 
NEXT BLOC< IF F2 
ELSE NEXT PASS 



SUBROUTINE TO OUTPUT 16-BIT NUMBER IN 
WHICH IS IN 0EV#3 AND FOLLOWS WITH A 



P TO CLK/TTY 
SPACE 



ENTRY POINT NQ87 CONVERTS 3 BIT NUMBER ON UBUS TO ASCII 
aND PRINTS IT 



rNTRY POINT NQ88 PRINTS DATA ALREADY 
COMPLETION 



* 

* 
NQ8«, 



rlxOUTPUT SPACE AFTER NUMBER 
r TRs-6 FOR A 6 DIGIT NUMBER 



NQ89 



NQ87 
N«8a 

NQ9n 



IN IOD AND I-AITS FOR 



SF1I P.iMUMBERfcSLl 
CTR--6 (P^INT 6) 
LAST BIT ONLY 
GO CONV A "YD PRINT 

SHIFT IN ME> T QIC IT 



LAST 3 BITS 
CONVERT TO ASCII 

wIO CHARACTER 

TIO 

WAIT FOR COMPLETION 

DONE.? 

NO 

CTR.-i, CF1 

PET IF OONE 

SPACE 



DMUL/ODIV 
ENTER VIA JMP TABLE TN SEC 7 WITH SRs4, RD,RC«U, SB.RAsV, 
F1..WSGN, U.ABS(U), V„ABS(V>, SP2.oRG MSUl EXIT TO DDIV IF DDIV. 



P 


CRS 


SLl 


P 


SF 1 




ROM 




CTRL 


177772 


p 


ROMN 






0001 


UBUS 


JMP 


N«R7 




UNC 


P 


CRS 


SLl 






UBUS 


CPS 


SLl 






UBUS 


CRS 


SLl 


P 




UBUS 


ROMN 






000007 


UBUS 


ROM 




TOD 


000060 




ROM 




IOA 


101403 




ROM 




IOA 


102403 


IOD 


ROMN 






0400 NZRo 




JMP 


NQqn 




UNC 




ADD 






INCT CTRM 




JMP 


NQwQ 




UNC 




CAO 




CTRL 


CF1 Fl 




ann 






RS8 




ROM 




TOO 


000040 




JMP 


NQfltf 




UNO 



3072213726? 
3276213726*5 



i72 3 3 
DMUl 



RD 
RB 



JSB 
JSB 



DMiA ?P2 
DM1B 



NEG 
NEG 



SP2-ORG MSU, COMPL U IF NEG 
COMPL V IF NEG? Fls WSC , N 



PAOE 73 ADDRESS CONTENTS LA8|, RBUS SBUS FUNC SHFT STOR SPEC SKIP COMMENTS FR1, AUG 13. 1*76, 2»0B PM 

3749 7235 00766037300 CI« JMP DDIV ODD JMP IF ODlV 

3750 * 

37Sj • DELETE TWO ELEMENTS FROM 

373? » THE STACK. MULTIPLV LSU»LSV LEAVING THE RESULT IN SP3,SP2, 

3753 » CLEAR OVERFLOW, SINCE LSu*LSV=LSv«LSU , IT DOES NOT MATTER 

375<* * IF U AND V ARE LATER SWAPPED, 

3 75 5 - » 

3756 7236 31537777637 RC ADD SP3 CLO SP3-LSUJ CIO 

3757 7237 37772607237 REPN DCSR 20 DCSR 
3750 724o 16774333273 RA UBUS MPAD SR-1 INCT CTRm LSU*LSV 

3759 7241 17537777237 SBUS AQD SP? DCSR SP3.MSW OF RESULTjUCSR 

3760 7242 25737777777 SP3 ADO SP2 SP2-LSW OF RfcSULT 

3761 * 

376? # IN ORDER MOT TO OVERFLOW, EITHER HSU OR MSV MUST EGUflL 

37fi3 # ZERO, IF MSUO0 THEN U AND V ARE EXCHANGED AND THE NEW 

37 6 <> » MSU MUST EQUAL ZERO. IF NOT, AN ADDITIONAL MULTIPLY 

3765 » MUST 3E PERFORMED TO INSURE THE ANSWER IS CORRECT MODULO 2^«32. 

3766 * 

3767 7243 30766007247 DMU* RD JMP DMtJ3 ZERO JMP JF MSU«0 

3768 7244 32337417257 RB ADD SP0 INCN NZRo SP0.MSU 

3769 7245 37777767257 ADO INCN UNC SWAP U AND V IF HSUO0 
•«« WARNING { 8) • •• TOS LOAD NAM£ IS *LD NAME BEFORE PRECEDING PUSH, POP OR INCN 

3770 7246 32522367271. RB JSB DM?A SP3 UNC OVFL IF MSU,MSV<>0 (1C JMP) 

3771 • 

3773. « IF MSV*0 THIS MULTIPLY CAN BE SKIPPED SINCE ITS RESULT 

3773 «• WILL BE ZERO, IF NOT, MULTIPLY MSV»LSU. OVERFLOW OCCURS 

377^ * IF THE MSW OF THIS PRODUCT IS MOT ZERO, 

37T5 

3775 72*7 32526007254 DMU? RB JMP DMU4 SP3 ZERO SKIP MPAD IF ZERO <2C + JMP) 

3777 725o 2*772607777 

3773 7251 16774333271 

3779 7252 17777407777 

3780 7253 2*777777617 

3781 • 

376S » IF THE ANSWER IS NOT POSITIVE AT THIS POINT, AM OVERFLOW 

3783 • HAS OCCURRED UNLESS THEN RESULT IS EXACTLY -2«»31 AND A 

378<» « NEGATIVE ANSWER IS EXPECTED. NEGATE THE RESULT IF Fl 13 SET 

3785 * 

3786 7254 16642137274 DMU& UBUS JSB DM^A PB NEG POSSIBLE 0VF IF NEG 

3787 725S 3&6661P0563 SP2 JMP DCCA RA NFl JMP IF RESULT POS 

3788 7256 3*667517777 SP2 SUB RA NCRy 

3789 7257 32647767777 RB SUB RB UNC NEGATE RESULT 

3790 7260 3^647377777 RB CAD pB 

3791 7261 377663P0563 JMP DCCA UNC 

3792 " • 

3793 # SF1, U. -U, MAy RETURN WITH PANK1 RS8, 

379* • 

3795 726? 31627407477 DMl« RC SU9 PC SF'l ZERO SF15 LSU. -LSU, ZERO? 

3795 7263 30607307777 RD CAD RD RSB NO, MSU. -MSU-1 

3797 7264 30607707777 RD SUU RD RSB YES, MSU. -"SU 

3798 • 

3799 » F1.ORG USGN»SP2 XOR VSGN, V. -V, MAY RETURN WITH RANK1 RSB, 

3800 * 

3801 7265 3576337731? DMU RB SP2 XOR HBF Fl.VSGN XOR ORG USGN 

3802 7266 33667407777 RA SUB RA ZERO LSV. -LSVi ZERO? 



DMUn 




RB 
SP3 


JMP DMU4 
REPN 


SP3 


ZERO 
2 


SKIP MP 




RC 


UBUS 
SBUS 


MPAD SRl 

ADD 




INCT CTRm 
ZERO 


MSV«USU 






SP3 


**OD 




sov 


UVF IF 



P»A3E 74 


ADDRESS CONTENTS 


3803 


7267 


32647J07777 


380* 


7270 


32647707777 


3605 






3606 






3807 






3803 






3809 






3810 






3811 






3812 


7271 


2S772607257 


3813 


7272 


16774333275 


3814 


7273 


37777707617 


3815 






3816 






3617 






3818 


7274 


32777S»2777 


3619 


7275 


3b77300777* 


3820 


7276 


37777777617 


3821 


7277 


37777707777 


3828 






3823 






3824 






3825 






3826 






3827 






3828 






3829 






3830 






3831 






3833 






3833 






3834 






3835 






3836 






3837 


730o 


3276600734? 


3838 


7301 


33317777637 


3839 


7302 


3277213^777 


3840 


7303 


16653SJ2277 


3841 


7304 


01677777777 


3842 


7305 


14347377777 


3643 


7306 


1&177777637 


3644 






3845 






3846 






3847 


7307 


30317777777 


3848 


7310 


37532337277 


3849 


73H 


16760332271 


3850 


7312 


37337777765 


3851 






3652 






3853 






3834 






3855 






3856 


7313 


2&772b77777 


3857 


7314 


3276433227ft 



lab; rbus sbus func shft stor spec skip 



RB 
RB 



CAD 
SUB 



PB 
OB 



RSB 
MSB 



comments 



NO, MSV. -MSV-1 
YES, MSV_ -MSV 



FRI, AUG 13, l*7o, 2106 PM 



THIS ROUTINE IS EXECUTED ONLY WHEN) BOTH MSUO0 AND MSVO0 AND 
IS ALWAYS AN OVERFLOW. IT IS NECESSARY TO MULTIPLY MSU*LSV 
TO OBTAIN THE RESULT MODULO 2*#32. IT IS NOT 
NECESSARY TO MULTIPLY MSUttMSy BECAUSE THIS CAN HAVE NO 
EFFECT IN THE MODULO RESULT, 



OVERFLOW CASEJINCN 

MSU«LSV 

SP3«MSW OF PROOUCTI SOV 



« 










DM2 A 


SP3 


REPN 


INCN 


20 




SP0 UBUS 


MPAD SRi 


TNCT 


CTRM 


4, 




ADD 


SOV 


RSB 


« 

DM4a 


CHECK FOR 


-?»*31 CASE 






RB 


ADD SLl 




NFi 




UBUS SP2 


IOR 
ADD 
ADD 


SOV 


ZERO 
RSB 



DDIv 



THROW ftiyAY SIGNI OVF IF NFI 
OVF IF NOT 2o«31 



DOIV 
ENTER FROM OMUL WITH RD, RCABS < U > , RB , RAaABS ( V ) , 
SP2»0RG MSU, FI«WSGN, SRa*. 

IF MSV«0 A SHORTEN DIVIDE ALGORITHM CAN BE USEu. IF NOT 

THEN V MUST BE NORMALIZED SO THAT BIT OF MSV=l, U MUST 

BE SHIFTED ACCORDINGLY, AND THE REMAINDER MUST ALSO bE 

SHIFTED, A MAXIMUM OF 15 SHIFTS IS REQUIRED WHEN MSV*1. 

CTSD CAN BE USED TO NORMALIZE SINCE IT WILL DO A CIRCULAR 

SHIFT BASED ON ClQ, AND THE PITS SHIFTED OUT WILL ALWAYS 

BE ZERO, MAKING IT EQUIVALENT TO A LOGICAL ShIFT, WHICH 

IS THE SHIFT NEEDED, NOTE THAT SP3 IS INVALIDATED BY THE CTSD, 

SHORT DIVIDE IF MSVso 
SP1_LSV FOR SHIFTjCLO 
PERFORM D0U8LE NORMALIZE 
SHIFT LEFT (CIRC SHIFT) 

SET UP FOR SHIFT 

SAVE COUNT IN OPND FOR REM 

SHIFT U THEN SAME NUMBER OF PLACES THAT V wAS SHIFTED, 

RD AQn 
REPC 
RC UBUS QASL SLl 
RBUS ADD 

DIVIDE THE TWO MSW'S OF U AY MSV. THE QUOTIENT THUS OBTAINED 
CAN BE TOO LARGE SINCE LSV W A S NOT CONSIDERED IN THE DIVIDE, 
BECAUSE MSV>*1000nO, THE QUOTIENT CAN BE NO MORE THAN 1 TQO LARGE. 



RB 


• JMP OD 1 3 






7ERo 


RA 


ADD 


SP1 


CLO 




RB 


REPC 






NEG 


UBUS 


CTSD SLl 


RB 


INCT 


NEG 


SP1 


ADD 


RA 






CTRL 


CAD 


C-TrtL 






UBUS 


ADD 


RUS 


OPNO 





SP1 






SP3 


INCT CTRm 
INCT CTRM 


• SP3-0 


SPO 




U*SP3,SP1 ,SPQ 



SP3 

UBUS RB 



RFPN 
DVSB SLl 



21 
INCT CTRM 



PERFORM DIVIDE 
OUOTlENTsSPl 



PA9E 75 



ADDRESS CONTENTS 



LABi RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2J0B PM 



3858 

3659 

3660 

3861 

3863 

3863 

3864 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

387H 

3873 

3874 

3875 

3876 

3877 

3879 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3866 

3887 

3888 

3889 

3890 

3691 

3893 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3918 



7315 
7316 



37617^3425 
16611700000 



RBUS ADD 

UBUS ROM 



SRi 



PD 



CF2 NF2 
100000 



7317 
7320 
T321 
732? 
7323 
7324 
7325 
7326 



7327 
7330 
7331 
7332 



7333 
7334 
7335 
7336 
7337 
7340 
734J 



01526007333 
37772607777 
16774333273 
17527377777 
2b327bl7775 
25776407777 
30617517776 
37766367333 



33337517775 
32616767770 
3S617777770 
37307377774 



26357777777 
3/537777775 
01637777777 
37617777777 
30652337277 
16653733277 
2S666367355 



IT IS N 
IF IT S 

CORRECT 
ONE COP 
ACCORDI 
1 TOO L 
THE REM 
THE REM 
THE 33R 
SUBTRAC 
MOST SI 



ECESSARY T 
TILL LEAVE 

QUOTIENT 
Y OF V TO 
NGLY, WE 
ARGE 8Y TH 
AINOER IS 
AINDER IS 
D BIT, WE 
TION BY CH 
QNIFIGANT 



SUBTRACT 
S A POSITI 
AND REMAIN 
THE REMAIN 
ARE GUARAN 
F NORMALIZ 
THE DIVIDE 
A 3-? BIT U 

CAN TELL 
ECKING FOR 
WORD. 



LSV«QUO 
VE REMAl 
DER. IF 
DER AND 
TEED THE 
ATION, 
ND AND T 
NSIGNED 
IF THIS 

THE ARS 



SP1 JMP DDI4 SP3 

REPN 
UBUS MPAD SRl 
SBUS CAD 5P3 
SP3 SUB SPO 
SP3 INC 
UBUS RD ADD PD 

JMP 0DI4 



RA 



SPO 



ZERO 
20 
INCT CTRm 

NCRv 
ZERO 
NCRY 
UNC 



REMAINDER=RD,SPO 
PUT BACK HIGH BIT 

TlENT FROM THE REMAINDER, 
NDER» THEN WE HAVE THE 

NOTf WE MUST ADD BACK 
DECREMENT THE QUOTIENT" 

QUOTIENT IS NO MO«E THAN 
IF THE QUOTIENT IS ZERO, 
HIS CHECK MAY BE SKIPPED, 
QUANTITY. THE SIGN t4IT IS 
BIT IS NEGATIVE AFTER THfc 
ENCt OF CARRY OUT FROM THE 



SP3-UUOT FOP MPADlSKIP IF 

MULTIPLY TRIAL QUOTIENT BY 

LOW ORDER BITS AND SUBTRACT 

FROM REMAINDER 

REMAINDER»RD,SPO 

SKIP IF CARRY 

NEG REMAINDER IF NCRY 

JMP IF CORRECTION NOT REQ»J 



CORRECTION NECESSARY, ADD BACK THE DIVISOR AND DECREMENT QUOTIENT. 



SPO RA ADD 

RD RB INC 

RD RB ADD 

SP1 CAD 



SPO 


NCRv 


RD 


UNC 


RD 




SPl 





ADD BACK DIVISOR 



DECREMENT QUOTIENT 



7342 33766003130 



* 
DDIn 



NORMALIZE REMAINDER. IT IS SUFFICIENT To DO A CTSD (WHICH 

OOES A CIRCULAR SHIFT) BECAUSE THE LOWER BITS OF THE 

REMAINDER WILL ALWAYS BE ZERO SlNcE THEY WERE 

ZERO IN THE DIVISOR AND OIVIDENO (BY NORMALIZATION). 

THUS A CIRCULAR SHIFT IS AGAIN EQUIVALENT TO A LOGICAL SHIFT, 



SET UP CTR TO SHIFT REM 

RD,RCQU6TIENT 

NORMALIZE REMAINDER 
(CIRC SHIFT) LOW SPOsO 
REMAINDER IN RB»RA 

A SHORT DIVIDE IS POSSIBLE SINCE MSVsO WHICH GUARANTEES THAT 

THERE ARE NO MORE THaN 16 SIGNIFIGANT BITS IN THE DIVISOR. 

THE DVSB CAN HANDLE UP TO A 16 BIT DIVISOR AND A 32 BIT DIVIDEND, 

IF THE DIVISOR DOES NOT GO THE FIRST TIME, IT IS NOT NECESSARY 

TO DIVIDE 0,MSU BY LSV SINCE THIS WILL BE ZERO. IF IT DOES 

GO, JMP OFF TO DIVIDE THE UPPER PORTION AND GET THE MSW 

OF THE QUOTIENT. 



tt 


NOTE 


THAT 


SPl 1 


[S IN< 


i/ALIDi 


VTED E 


»Y TH 


«■ 
















DDI/, 


SPO 


OPND 
SP1 


ADD 

ADD 
ADD 
ADD 




CTRL 
SP3 
PC 
PD 










RD 


REPC 




RB 


INCT 


CTRM 






UBUS 


CTSD 


SRi 


RB 


INCT 


CTRm 






SP3 


JMP 


DDI5 


RA 




UNC 



RA 



JMP TRP4 



ZERO 



TRAP IF DIV BY ZERO 
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ADDRE 


3913 


73*3 


391* 


73*4 


3915 


73*5 


3916 


73*6 


3917 


73*7 


3918 


7350 


3919 


7351 


3920 


7352 


3921 


7353 


3922 


735* 


3923 




3 92* 




392S 




3926 




3927 


7355 


3928 


7356 


3929 


7357 


3930 


7360 


3911 


7361 


3932 


7362 


3933 


7363 


393* 




393S 




3936 




3937 




3938 


736* 


3939 


7365 


39*0 


7366 


3941 


7367 


39*2 




39*3 




39** 




39*5 


7370 


39*5 


7371 


39*7 


7372 


39*8 




39*9 




3950 




3951 




3992 




3953 




395* 


7373 


3955 


737* 


3956 


7375 


3937 


7376 


3958 


7377 



ADDRESS C0NTEN7S 



3/177777637 
33767517770 
30302367373 
31317777637 
30772577777 
3376*332276 
376775'3*25 
16671700000 
01637777777 
26617777777 



37766157362 
31627507777 
30607367777 
30607777777 
3776636736* 
30777527777 
37777777617 



35766127370 
33667507777 
366*7367777 
386*7777777 



30777*07757 
37777757777 
31777767657 



lab;' rbus sbus func shft stor spec skip 



COMMENTS 



FRI, AUG 13, 1976, 2108 PM 



37772577777 
3376*332276 
37617573*25 
166U700000 
01177707637 



« 

» 
« 
DOIr; 



DD1* 

« 
# 

DDI7 



DDIc 



* 

» 
« 
DDIs 



OPNO„MSW QUOTIENT <*0> 
NEED TO DIV MSU? 
VESI JMP, SPl.MSU 
SP1.LSUI CLO 

MSU,USU/LSV 

RESTORE HIGH BIT FROM F2 
RB,RA_PEMAINDER (RB«0) 
«D,RC. QUOTIENT 



COMPLIMENT THE QUQTIFNT IF A NEGATIVE RESULT IS EXPECTED, 
OVERFLOW IS POSSIBLE ONLY IN THE C*SE OF -2*#31/-1. 







ADD 




BUS 


OPND 


RD 


RA 


SUB 






NCRY 




RD 


JSB 


DDI2 


SP1 


UNC 




RC 


ADD 




SP1 


CLO 




RD 


REPN 






21 


UBUS 


RA 


DVSB 


SLl 




INCT CTRM 


RBUS 




ADO 


SRi 


PA 


CF2 NF2 




UBUS 


ROM 




PA 


100000 




SP1 


ADD 




PC 






OPND 


ADO 




RD 





JMP DDI* 
RC SUB RC 
RD CAD RD 
RD SUB PD 

JMP DDI7 
RD ADD 

ADO 



NFl 

CRRY 

UNC 

UNC 
POS 



JMP IF POS RESULT 

COMPLIMENT QUOTIENT 

CAN'T OVF IF NEG 
OVF IF -2**31 



SOV 



IF THE DIVIDEND WAS NEGATIVE THEN THE REMAINDER MJST ALSO 
BE NEGATIVE. 



SP2 JMP 

RA SUB 

RB CAD 

RB SUB 



DDI* 



PA 
RB 
P8 



POS 

CRRV 

UNC 



DONE. SET DCCA ON QUOTIENT IN RD.RC. 



»D ADD 

ADD 

RC ADO 



CCA ZERO 

NEXT 

CCZ NEXT 



COMPLIMENT REMAINDER 
IF DIVIDEMD<U 



SET DCCA ON QUOTIENT 



THIS SUBROUTINE IS EXECUTED WHEN THE DIVIDE SUCCEEDS THE FIRST 
TIME. IT GIVES THE UPPER WOPD OF A TWO WORD QUOTIENT, THE 
REMAINDER IS STORED RACK IN MSU(RO) FOR THE SECOND DIVIDE 
PERFORMED IN LINE. 



REPN 
UBUS RA DVSB SLl 
RBUS ADD SRi 

UBUS ROM 

SP1 AQO 





21 




INCT CTRm 


RD 


CF2 NF2 


PD 


100000 


BUS 


OPND RSB 



UIVIDE MS bITS 
0,MSU/LSV 

PUT BACK MSB OF REM 
OPNO.MSW QUOTIENT 



PA9E 77 



ADDRESS CONTENTS 



LA8 L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FR1 , AUG 13, 1*76, 2;0H PM 



3959 

3960 

3961 

3962 

3963 

3964 

3965 

3965 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

397S 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3999 

3999 

4000 

4001 

4002 

4003 

4Q04 

4005 

4006 

4007 

4008 
4009 
4010 
4011 
4012 



7473 
7474 
7475 
7476 
7477 
7500 



7501 
7503 
7503 
7504 
7505 
7506 



75U 
7512 
7513 
7514 
7515 
7516 
7517 
7520 
7521 
752? 
7523 



37431760405 
37671607476 
37506367532 
374367^057 
37671607501 
37766367545 



374317*0405 
37671607504 
3776636753? 
374367^2777 
37671607507 
37766367545 



7507 37771615545 
7510 16602367551 



37417777777 
37762367573 
3*6177 '5777 
37762367573 
327777*4777 
30616777776 
37762367573 
3*6377 '5777 
37762367573 
3*6577/4777 
20177777157 



7524 3U77777432 

7525 20416777777 

7526 37607007450 

7527 37766367517 
7530 35526363033 



6. 

# 

i7473 

DCLo 



DIOi 



SECTOR 13 
010 COLD LOAD 
DISC DUMP 



DID COLD LOAO USING ATC & 264* 
ENTRY FROM DCLD (REG COLD LOAD) WITH SP1«DEV*, 
SP2*LABEL, CTReS-BNK+1, S-BNK*0, F2*0 i SH=0. 

INITIALIZE ATC (ASSUME I/O RESET) 
CONFIGURE FOR SENO *'?400 BAUD 



POM 
ROM RA 

JMP TWJO STA 

INC SLl Q 
ROM PA 

JMP TCIO 



160405 

moi 

UNC 
CLSR 
DlO? 

UNC 



OIOp 



010^ 



DIO* 



CONFIGURE FOR RECEIVE. »24Q0 BAUD 



ROM Q 

ROM PA 

JMP TWXO 

INC SLl G 
ROM RA 

JMP TCIO 



120405 
0103 

UNC 



DIO* 



UNC 



CONFIGURE FOR Sfc.NO 
RETURN AOR 
STA„0I GO WRITE 
SEND TO UNIT 
RETURN ADR 
SEND TO CHANNEL 



CONFIGURE FOR RtCItVfc. 

RETURN AOR 

GO WRITE 

SEND TO UMIT 

RETURN AOR 

SEND TO CHANNEL 



SEND ESCAPE LOkER CASE e TO READ FROM *644 



ROM 
UBUS JSB SEND RD 



015545 

UNC 



RECEIVE N WORDS AND WRITE TO 



CLO' 







ADD 




p 






JSB 


RECV 






RB 


ADD 
JSB 


RLZ 
RECV 


RD 




RB 


ADD 


RRZ 




UBUS 


RD 


INC 

JSB 


RECV 


«D 




RB 


ADD 
JSB 


RL* 

RECV 


PC 




RB 


ADD 


RRZ 


RB 




P 


ADD 




BUS 


RB 


RC 


ADD 




PUS 




P 


INC 




P 


RD 




CAD 




RD 



UNC 
UNC 

UNC 
UNC 



WRA 



SP2 



CF1 ZERO 
JMP CLQJ UNC 

JMP INT2 SP3 UNC 



ESC LC E 
SEND ESCAPE 



WRITE TO 



RD-CUUNT 

GET A CHARACTER 

RC-UPPFR 8YTE 

GET ANOTHER CHARACTER 

EXTRACT LOWER BYTE 

WRITE TO "EMORY 



INC ADDRESS 
DEC PASS COUNT, F1„0 
KEEP READING 
SP3-LABEL. SET UP REGS 



»»A9E T8 



ADDRESS CONTENTS 



LAB L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2J08 PM 



*Ol3 
*0l4 
4C15 
4<H6 
4017 
4G18 
40 19 

4cao 
4021 

4 032 
4023 

4024 

4025 

4C2S 

402 7 

402B 

4C29 

4030 

4031 

4G38 

4C33 

4034 

4C33 

40 36 

4C37 

4038 

4039 

4040 

4041 

4042 

4043 

404* 

4045 

4046 

4047 

4048 

4049 

40S0 

4 0S1 

40S2 

4053 

4054 

4055 

4056 

4057 

405B 

4059 

4060 

4Q61 

4062 

4063 

4064 

4065 

4066 

4067 



7531 


01531413*00 


7532 


01531701400 


7533 


01031702*00 


7534 


U777532777 


7535 


37766367533 


7536 


25761412000 


7537 


21057777777 


7540 


25031300000 


7541 


12537777777 


7542 


04777423777 


7543 


377663*2762 


7544 


33577777777 


7545 


01531700400 


7546 


37766367537 


7547 


01531702400 


7550 


37766367540 


7551 


164377&0477 


7553 


3043777**57 


7553 


37671607556 


755* 


21431243400 


755* 


3776636753? 


7556 


374367^2777 


7557 


37671607561 


7560 


37766367545 


7561 


37671607563 


7562 


37766367547 


7563 


25761604000 


7564 


16766007561 


7565 


37436777777 


7566 


37671607571 


7567 


256577 7*777 


7570 


377663675*5 


7571 


377661*755? 


7572 


37777707777 


7573 


37671607575 


7574 


377663675*7 


7575 


2576160<»000 


7576 


16766007573 


7577 


37671607565 


7600 


37766367531 





♦ 

« 

TRIo 

TWIo 

TRWi 



« 

TlOn 

TIOa 



« 

TCIn 



TTIn 

SENr, 
SEN*; 
SEN* 



SENi 

SEN? 
SEN-, 
REC? 

SEN 4 

REC>/ 
REC^ 



TERMINAL COMMUNICATION ROUTINES 
ASSUME DEVICE NUMBER STORED IN SP] 



SP1 POM 
SP1 ROM 



SP3 3*0ft NZRO 
5P3 101*00 



SP1 


ROM 




IOA 


102*00 


IOD 


ADD 


SLl 




NEG 




JMP 


TRW1 




UNC 


SP3 


ROMN 






2000 NZRO 


Q 


ADD 




IOD 




SP3 


ROMI 




IOA 


J ooooo 


IOD 


ADD 




SP3 




CPXl 


ADD 

JMP 


SRi 
SYSH 




EVEN 
UNC 



RA 



ADD 



RAR 



SP1 ROM sP3 100*00 

JMP TlOO UNC 

SPl ROM $P3 102<»00 

JMP TIQA UNC 



UBUS 


ADD 


LRZ 


Q 


SPl UNC 


RD 


ADD 


RRZ 


Q 


CF1 




ROM 




RA 


SENl 


Q 


ROMI 




Q 


043*00 




JMP 


TWTO 




UNC 




INC 


SLl 


a 






ROM 




RA 


SEN? 




JMP 


TCTO 




UNC 




ROM 




PA 


SEN3 




JMP 


TTIO 




UNC 


SP3 


ROMN 






00*000 


UBUS 


JMP 
INC 


SEM? 


Q 


ZE«0 




ROM 




04 


SEN* 


SP3 


ADD 


RRZ 


RB 






JMP 


TCIO 




UNC 




JMP 


SENS 




Fl 




'VOD 






RSB 




ROM 




RA 


REC) 




JMP 


TTIO 




UNC 


SP3 


ROMN 






00*000 


UBUS 


JMP 


RECV 




ZERO 




ROM 




RA 


REC? 




JMP 


TRIO 




UNC 



ALWAYS NZRO 

DO TIO 

CHECK HIT I- (RIO/WIG OK) 

NOT READY 

SKIP IF TSIO 



UNLOAD OA7A TO SP3 

FAIL IF NO RESPONSE 
RETURN 



RETURN flD« 

ADD CONTROL BITS 



RETURN AOR 
RETURN ADR 



aCK INT 

RETURN ADR 

UNLOAD SP3 IN CASE RECV 



RETURN ADR 



RETURN ADR 



7905 DUMP 



FA9E 79 



ADDRESS CONTENTS 



LABt RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2tOB PM 



4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4075 

4077 

407B 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4086 

4089 

4090 

4091 

4098 

4093 

4094 

4095 

4096 

4097 

409S 

4099 

4100 

4101 

4102 

4103 

410<» 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4130 

4121 

4122 



7601 
7602 



7636 
7637 
7640 
7641 
7642 



013177^2054 
37157777017 



7603 


01137777777 


7604 


01316637177 


7605 


26537767777 


7606 


26206367603 


7607 


04761400020 


7610 


37777777077 


761X 


01177777777 


7612 


16116777717 


7613 


26737777117 


7614 


01116777777 


7615 


16176777777 


7616 


26017777477 



7617 


01176777157 


7620 


37171601000 


7621 


01177777157 


762? 


3U71600572 


7623 


37176777155 


7624 


371716J0000 


7625 


3/177777155 


7626 


01177777437 


7627 


3U273T7155 


7630 


37171667776 


7631 


37127377155 


7632 


37171601000 


7633 


37127377155 


7634 


37171640000 


7635 


37766367644 



01136777157 
371716*0000 
37116777155 
37171607405 
0U767771S7 



» 

» 
DDMp 

ft 

« 

DPLq 



DDO, 



SIO DMP TO 7905 BEG AT CYLINDER %000572» HEAD/SEC fcOQlOOO? «N* 
SEC AMD CYLINDER ARE INCREMENTED SEQUENTIALLY BY DISC CONTROLLER, 
ENTRY FROM DCLD (REO DMP) WITH SPl*UEV#! CTRsS-BNK* 1 , S-BNKaQ, F?=l 



SP1 SP1 



ADD 
ADD 



SL1 



SP1 CLSR 
SBR ABS 



SPl.DEV* ft 4, SR..0 
ABS-6NK_0 



LOAD TOS REGSi SPl, SP2i NlR, PCLK AND OPND WITH < S-f'-NK , SP1 ) . , , 
S-BNK*0, SR*0J SPo.SPl + 4, SPl_SPl+7i SF1, F3^ICS FLG, SET ICS» SR_* 

READ D0-D4 
INCW SP1, F3„0 
SP3-D4 
DPL9 PUSH UNC TOS-D0-D3 
0020 ZERO 

F3-ICS FLAG 

READ OB 

READ 06 INTO NIR 

SP2-D5, SET ICS FLAG 

READ D7 

READ 08 

PCLK„D7, Fl_l 

CREATE AND ExEcUTE SEEK I/O PROGRAM, BEGINNING AT 

ABS-BNK.SP0-4 THROUGH SP1 + 1 « DEV*»4 THROUGH DEV*ft4+«: 

I/O PTR, CONTROL SEEK, WRITE 2w FROM D7, END, CYLINDER, HEAD/SEC. 

Flal, F2sl, SR=4» OD*A (DDOC) USED TO WRITE I/O PTR AND SIOj 
RETURN TO DDMl WITH SP0.SP3, SP I _DE V««<+ , SP3 MODIFIED. 



SP1 


ADO 


SP1 


INC 


OPND 


ADD 


OPND 


JMP 


CPX1 


ROMN 




ADD 


SP1 


ADD 


UBUS 


INC 


OPND 


ADD 


SP1 


INC 


UBUS 


INC 


OPND 


ADO 



RSPQ 


ROS 




SP1 


CF3 


SRN^ 


SP3 




UNC 


PUSH 




UNC 




0020 


ZERO 




SF3 




BUS 


ROS 




BSP1 


RNS 




PP2 


SIFQ 




wspi 


ROS 




rjUS 


90S 




PCLK 


SF1 





SPO 



SPO 



SPO 



SPO 



SPO 



SP1 



SP1 



SP1 



INC 


PUS 


*RA 


ROM 


3US 


001000 


Ann 


RUS 


WRA 


ROM 


BUS 


000572 


INC 


9US 


WRA 


ROM 


BUS 


030000 


ADD 


PUS 


WRA 


ADO 


BUS 


DATA 


CAD 


RSPO 


WRA 


ROM 


«US 


067776 


CAD 


RSPO 


WRA 


ROM 


*»US 


001000 


CAD 


BSPO 


WRA 


ROM 


BUS 


040000 


JMP 


DDOC 


U 



UNC 



HEAD/SEC *u» 

CYLINDER *#* 

IOCW (ENDt INT AFTER SEEK) 

IOAW (07 ADDW) 

IOCW (WRITE 2) 

IOAW (SEEK) 
SP0-DEV#*4+1 
IOCW (CONTROL) 
FINISH SEEK PROGRAM 



ft 
ft 
ft 
ft 
ft 
ft 
DDOp 



CREATE AND EXECUTE AUTO SEEK I/O PROGRAM, BEGINNING AT 

ABS-BNK.SP1 s DEV*<*4{ I/O PTRi CONTROL, END WITH INTERRUPT. 

F1*0, F2al, SR*4| ODRA USED TO WRITE I/O PTR AND SIO; 
RETURN TO DDMl WITH SP0.SP3, SPi_DEV**4, SP3 MODIFIED. 



SPO 



SP1 INC 
ROM 
INC 
ROM 

SP1 INC 



ospo 


WRA 


BUS 


040000 


BSP1 


WRA 


RUS 


007405 


BUS 


WRA 



SPQ.DEV*ft4+l 
IOCW (CONTROL) 

IOAW (SAME HEAOf AUTO SEE.K1 



PAGE 80 



ADDRESS CONTENTS 



LAB| RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG 13, 1*76, 2508 PM 



4123 

4124 
«135 
4126 
4127 
4128 
4119 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
41*7 
414B 
4149 
4150 
4 151 
41 '52 
4133 
4134 
4135 
4156 
4137 
4139 
4139 
41*0 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
41"»0 
4171 
4172 
4173 
4174 
41?5 
4176 
4177 



7643 37171634000 

7644 07301600077 

7645 2632636767;? 



7646 


37537b57455 


7647 


37766367636 


7650 


01137777141 


7651 


37171604000 


7652 


37167377155 


7653 


37171640000 


7654 


3^136777155 


7655 


371716O0000 


7656 


37136777155 


7657 


16177777437 


7660 


37136777155 


7661 


37131634000 


7662 


37176777155 


7663 


26177777437 



7664 


07301600077 


7665 


16136772156 


7666 


371777*74435 


7667 


37127377155 


7670 


37171614000 


7671 


25337777437 


7672 


37107377155 


7673 


01531701000 


7674 


01176777437 


7675 


377623^1724 


7676 


37511644000 


7677 


24537777777 


7700 


04777467777 


7701 


37766367700 


7702 


2t>517777777 


7703 


24777627037 


7704 


01177777177 


7705 


11531302000 


7706 


0776337777* 


7707 


16761400077 


771o 


37766367675 



DDOr 

» 

« 

« 

* 

ddm; 



ROM PUS 034000 
SWCH ROMN SPl 000077 
SP3 JMP DD8A SPO UNC 



IOCW (END WITH INT) 
SP1.DEVW, SAVE SP3, FINISH 
SEEK PROGRAMS (lC JMP) 



» 

ft 
« 
ft 
ODMn 



AFTER EXECUTING SpEK I/O PROGRAMS DDOA AND DOOB RETURN To DDM1 WITH 
SPQsORG (04), S01*n£V#«4l SP3.SP0, CFl, EXIT TO DDOB IF Fl WAS ON 

CREATE SECOND PART OF WRITE I/O PROGRAM, BEGINNIN3 AT 

ABS-BNK,SPl+3 « 0FV««4+3« CTRL WRT, WRT 4K FROM D6 , END W/ INT. 

SR«4| ORQ (Dfl) RESTORED FROM OPND, RH SPO.O* 



SPO 



SR 



SPO 



SPO 



SPO 



SPO 



SPO 



SPl 



ADD 
JMP 
ADO 
ROM 
CAD 
ROM 
INC 
ROM 
INC 

UBUS ftDD 
INC 
ROM 
INC 

OPND ADO 



DDnS 



>P3 


CFl NFl 




UNC 


RSPO 


WRA 


PUS 


004000 


BUS 


WRA 


PUS 


040000 


PSPO 


WRA 


PUS 


060000 


PSPO 


WRA 


BUS 


DATA 


PSPO 


WRA 


eiSPO 


034000 


PUS 


wRA 



BUS DATA 



10AW (WRITE) 

IOCW (CONTROL) 

IOCW (WRITE 4K) 

10AW (06 ADDR) 

IOCW (END WITH INT) 
\RH SP0«0 
RFSTORE ORG <D8> 



CREATE FIRST PART OF VRITF I/O PROG, Bt'GlMNl!M6 AT ABS-HNK , L>EVW«4 ! 

I/O PTR, SET BNKsRH SPOl SlOj SENO RIL TO INTERRUPTING DEVICES, 

WAITING FOR CORRECT DEVICE| CHECK I/O PTR IF DM» RfcC 1-N (SRN4), 
SP0.SP3, SPl.DEV##4+7, SP3-SM, F2_Q J EXIT TO QDM4 IF OMP RLC 1-N, 
DDOA AND DD08 USE OOPA TO WRITE I/ n PTR AND EXECUTE I/O PROGRAMS? 

SP0=DEV#ft4+l ON ENTRY < UNCH BY nD8A), SP1»DEV«, F2=l, SR=4| 

EXIT TO ODM1 WITH SPlsD£V»«4, SP3 MODIFIED. 



SWCH ROMN 
UBUS UBUS INC SLl 



SPO 
SPO 

DDBe SPO 

DDMq 
« 





ROM 


SP3 


ADD 




CAD 


SPl 


ROM 


SPl 


INC 




JSP 




POM 


STA 


ADO 


CPXl 


ADD 




JMP 


SP3 


ADD 


STA 


ADD 


SPl 


ADO 


IOA 


ROMI 


SWCH 


XOR 


JBUS 


ROMN 



ADO RR£ 
CAO 



IOPA 



•-1 



SPl 


000077 


PSPO 


WRA 


PUS 


DATA 


PSPO 


WRA 


PUS 


014Q00 


SPO 


CF2 


RSP1 


WRA 


SP3 


101000 


PUS 


DATA 




UNC 


STA 


044000 


SP3 






BITP 




UNC 


STA 






CCPX SR4 


PUS 


ROA 


SP3 


102000 




0077 ZERO 



JMP DDM9 



UNC 



SPl„uEV# 

IOAW (HAN<sSP0 ( 14 J 15) > 

IOCW (SET aAi'lK) 

SAVE SP3, F2_0 

AT DEV* ft 4, 

(FOR* SIO CMD) 
PUT DEV# » 4 + 1 

SEND CMD TO uEVlCE 

SET I BIT, AND K 

FOH CLEARING LXT INT 

SAVE STA 

WAIT FOR INT 

REPLACE STA 

CLEAR EXT INTERRUPT 

READ I/O PTR IF DMP 1-N 

FORM Rij_ CMD 



JMP IF NOT CORRECT DEVICE 
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4179 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4193 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4300 

4201 

4203 

4203 

4204 

4205 

4206 

4207 

4209 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4213 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

*22* 

4227 

4229 

4229 

4230 

4231 

4232 



ADDRESS CONTENTS 


7711 


377623&1724 


7712 


23526167646 


7713 


01311600007 


7714 


26767537776 


7715 


37766237751 


7716 


37766237745 



LAB ( RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, AUG I3t 1*76, 2»0a PM 



7717 
7720 
7721 
7722 
7723 
7724 
7725 
7726 
7727 
7730 
7731 
7732 
7731 
7734 
7735 
7736 
7737 
77<»0 
7741 
7742 
7743 

7744 



7745 
7746 
7747 
7750 
7751 
7752 
7753 
7754 
7755 



01462211744 
37217777775 
3b217777777 
1J2023&1744 
37217777766 
3*217777777 
03217777417 
222023&1744 
21317777777 
2b2023&1744 
142H777777 
3721777776? 
242023O1744 
03217777217 
362023&1744 
20217777777 
37217777760 
00202351744 
37731610000 
37617777217 
04657747217 
16641777757 



30617417770 
03156777617 
16137617770 
16177777237 
17631601200 
37777777025 
0*621620000 
31761404003 
31766007764 



JSB 

SM JMP 

SP1 ROM 

UBUS OPND SUB 

JMP 
JMP 



I OP A 

DDM1 SP3 
SP1 

DDM5 
ODM4 



UNC 

F2 
000007 

NEG 
S«N<* 

SPN* 



SEND R1L TO <C0RR) DEVICE 
SP3-SMJ JMP IF SEEK PROGS 
SPl-0EV#o4+7 

JMP IF ABN END AND DMP i-N 
\<POLLQWlNG SBUSso) 
JMP IF DMP R£C 1-N 



PUSH REGS.ETCt INCL DO-5,7 IN TOS , SPO i SP2 » PCLK , ORG S-8NK(+1> 
IN CTR AND ORG SM IN SP3 ExCtPT CPX1,CPX2»06 AND SIZE INTO 
MEM BEGINNING AT S-BNK , SP1 ♦ 1 «DEv#»4+8 t 

SRs4| SP2..4K, RD.O, RB-CPXl INCL F3, SR-,2 , SM..DEV W«4 + 2a . 



SPO 



PL 



SP1 


JSB 
ADO 


PSh<\ 


SM 
PUSH 




SHN; 


SP2 


ADD 




PUSH 






PCLK 


JSB 

ADD 


PSHA 


PUSH 
PUSH 




UNC 


DL 


ADD 




PUSH 






RBR 


ADD 




PUSH 


DB 




DB 


JSB 


PSHA 


OUSH 




UNC 


Q 


ADD 




PUSH 






SP3 


JSB 


PSHA 


PUSH 




UNC 


CTRL 


ROM 




PUSH 


177777 




ADO 




PUSH 






STA 


JSB 


PS-iA 


PUSH 




UNC 


RBR 


Ann 




PUSH 


»B 




PB 


JSB 


PSHA 


PUSH 




UNC 


P 


Ann 
«DD 




PUSH 
PUSH 






CI« 


JSS 


PSHA 


PUSH 




UNC 




ROM 




SP? 


oioooo 




ADD 




RD 


INSR 




CPX1 


ADO 




PB 


INSP 


F3 


UBUS 


PQMN 




PB 


1 77757 



JUMP U0-D3 («?C JMP) 



DUMP D4 f D5,D7 



DUMP K,DLf DB-BANK,OB 

DUMP Q.SM 
(CTR=S-BANK+1 ) 

DUMP S-BAVJ* ,Z,STA 

DUMP PB-BANK.PB 



DUMP P.PLiCIR 
SPa«*K 
RD-0, SRsl 
PB-.CPX1, SR»2, 

ICS FLAG WAS OFF 

FIND MEM SIZEI PUSH CPXl f CPX?,D6 AND SIZE INTO MEM BEGINNING AT 
S-RNK,SM+laD£V##4*?9» DUMP REC 1-N (4K EACH, BF3 WITH 0-7777), 

ENTER WITH RD«Of RB=CPX1, SRa2, S« = DEV*<xn>2B , ABS-BNK«0-t S-BNKsO, 
SPl=DEV**»4*7, SP2»4K, SP330RG SM, NIR=D6, 

DDM8 USED'TO WRITE «EC 1-N1 WRITE 4K AND WRITE AODR SET AT 

DEV##4+B,6, RH SPO.BNK AND SM„SP3 BEFORE EACH TRANSFER TO DDM* j 
IF ABN I/O PROGRAM END DDMb ENTfRS AT JDMb WITH SBUSsQ (SRsO) 
TO TERMINATE DMP WTTH ADDR+BNK oF RFC BEING WRITTEN IN ClR. 

EXIT TO WAIT AFTER LAST RECORD, WITH ENVIRONMENT UNCHANGED EXCEPT 
<DEV«#4) THROUGH (DEV*»4+32) , ClR=LAST AODK+l ♦ S-BNK=ONK, 



DDM<» RO 



DDMe: 



RD 



RBUS 



SP2 APD 
RBR INC 
UBUS ADD 
UBUS ADD 
SBUS ROM 
ADD 
CPX1 RQMN 
RC ROMN 
RC JMP DDM6 



RD NZRO INC MEM ADDR 

SBR S INC S-BAN* 

BSPO ROS SRN/ »EAD (AQOR+S-BNK) 

PUS MIR MIR-AOOR+3NK IF DMP 1-N 

00l?00 RC_AODH+6NK+1200 

CCPX CLW ILLEGAL ADDR, CIR.NIR 

020000 TEST FOR ILLEGAL ADDR INT 

4003 ZERO P56K? 

ZERO JMP IF NOT ILLEGAL ADDK 



WC 



RC 
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ADDRESS CONTENTS 


4333 


7756 


06677777777 


4334 


7757 


37626203761 


4335 


776o 


37157777617 


423ft 


7761 


00203361744 


4237 


7762 


37677777315 


423B 


7763 


373223&1744 


4239 


7764 


37766217745 


4240 


7765 


37177777235 


43M 


7766 


37107377154 


4242 


7767 


30177777437 


4243 


7770 


37167377154 


4244 


7771 


37171660000 


4245 


777g 


3&466367664 


4246 






4247 






4240 


7773 


37766177473 


4249 


7774 


37766367601 


4250 


7775 


37766367133 


4251 


7776 


377777 77777 


4252 


7777 


37777777777 


4353 






42S4 






4255 






4256 







LA8 L RBUS SBUS FUNC SHFT STOR SPEC SKIP 



CPX3 



COMMENTS 



FRI, AUG 13, 1*76, 2J08 l»M 



DDM* 



SPO 



SPO 
SP1 

SPi 



CIR 



SO 



SP3 





DCLn 
NOT, 



(JNI... <*nn 

»73 n 3 IK PARITY 
»74 7 3 IK PARITY 
•7473 3K PARITY 
$ST,T 
* 



Aon 




RA 






JMP 


*AtT 


RC 




SRZ 


Ann 




S8R 


s 




JSB 


PSHA 


PUSH 




UNC 


ADD 




QA 


INSR 




JSB 


psha 


SPO 




UNC 


JMP 


DDM4 






SRN? 


ADD 




RUS 


MIR 




CAD 




BSP1 


WHA 




ADD 




BUS 


DATA 




CAD 




BUS 


WRA 




ROM 




qus 


060000 


JMP 


0DM8 


<?m 




UNC 


JMP 


DCLO 






NF3 


JMP 


DDMP 






UNC 


JMP 


NQT3 






UNC 


ADD 











RA.CPX2 

HC_0; JMP IF ALL DUMPLD 

RESET S.BANK 

WD.RCl DUMP CPX1,CPX3,D6 

SI2E*ADDR+BANK 

CLR SPO j DUMP SIZE 

JMP IF FINDING SIZE 

NIR-AODR+BNK 

SET WRITE ADDR 

WRITE 4K 

SET I/O PT»,BANM SIO 



DIRECT CLD LU/DMP ENTRY 
FP N«»3 ENTRY 



ROM C0UNTs3413 



ERRORS* 



WARNINGS*4i 
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SYMBOL, CROSS REFERENCE TABLE 



FRIt AUG 13, 1*76, 2108 PM 



AC12 0044 <■ 0074 

AC13 0050 <■ 0057 

AC14 0055 <■ 0047 0141 

ACID 0043 

AC1P 0060 

AC1S 0042 

AC20 0104 

AC2P 0114 

AC2S 0103 

AC3D 0126 

AC3S 0125 

AC40 0154 

AC4S 0153 

ACSO 0166 

AC5S 0165 

ADAX 0605 

ADBX 06U 

ADO 0612 

AOOI 0760 

ADOM 0075 

AOOS 1553 

AOXA 0603 

ADXB 0607 

ADX1 0754 

AINC 0070 



ALSl 0226 <* 0255 
ALS2 0253 <■ 023*5 
ALS3 0256 <■ 0230 
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SYMbOL CROSS REFERENCE TARLE 



FRI, AUG 13f l»76, 2108 i'M 



AUSB 0228 

AND 0033 

ANDI 0757 

AS-K 1716 <* 1617 1630 1641 1653 1*60 1664 1670 

AT10 3712 <■ 3731 3751 

ATS1 3716 <» 3777 

ATS2 3727 <■ 3743 

ATS3 3742 <■ 3775 

ATS4 3747 <■ 3776 

ATS5 3757 <■ 7140 

ATS6 3762 <« 37lo 

ATS7 3766 <« 3756 

ATS8 3771 <» 373S 

ATST 3777 <« 3525 

BCC1 0422 <■ 0403 

BCC2 0424 <* 0436 0441 0444 0^46 0<,5l 0454 0457 0462 0465 0470 0500 0517 

BCC3 0427 <» 0433 

8CC4 0432 <■ 0411 

BCY 0445 

BNCY 0443 

8ND2 1752 <■ 1451 

BNDC 1751 <■ 1533 1541 1557 2452 

BNOV 3013 <■ 2131 2220 2*46 

BNOV 0440 

80V 0434 

BRO 0401 

9RE 0464 

8RQ 0467 



PAOE es 



SYMaOU CROSS REFERENCE TABLE 



PRIi AUG 13, 1*76, 2*09 PM 



BRP 0412 

BRP2 0414 <■ 0421 

BRS 0400 

BTST 1262 

CAB 0577 

CIO 1660 

CLA2 27U <■ 2407 2*<»1 f|112 

CLftB 270S <■ 2404 3110 

Cl.01 7517 <■ 7527 

CND 1670 

CHP 0615 

CMPO 2132 <* 2065 

CMPB 2135 <■ 2155 

CMPI 0537 

CMPM 0004 

COLD 3206 <* 3154 

CPRB 0472 

CPRS 2765 <■ 0002 2751 

CSTV 3122 <■ 2524 2'17 

D031 2202 <■ 2001 2024 *071 2135 2^0 2207 2226 

003S 2201 <• 2125 2215 

DOSS 2206 <* 224a 2264 2276 

DABZ 0461 

dado 0620 

DBdC 2321 <■ 2030 2033 *052 2064 2}67 

OBWC 2313 <■ 2016 2020 

DCCA 0563 <■ 0576 0623 0627 0*>33 ii*74 1272 1275 13oo 1303 7255 7261 

DCLO 7473 <* 7773 
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SYM-OL CROSS REFERENCE TABLE 



FRI, AUG 13, 1*76, 2108 PM 



DCI.D T773 <» 3230 

DCM2 0636 <* 1203 1206 

DCMP 0634 

ODOA 7617 

DDOB 7636 <» 7647 

DDOC 7644 <■ 763S 

D08A 7672 <■ 7645 

DOEt. 0644 <• 2204 

DDI2 7373 <■ 7345 

0013 7342 <■ 7300 

D0I4 7333 <■ 7317 7326 

0015 7355 <■ 7341 

DDI6 7362 <■ 735s 

DDJ7 7364 <= 7361 

DDI8 7370 <* 7364 

OOIV 7300 <» 7235 

O0M1 7646 <« . 7712 

00M4 7745 <■ 7716 7764 

0DM5 7751 <» 7715 

00M6 7764 <» 7755 

0DM8 7664 <« 777a 

DDM9 7675 <« 7710 

ODMP 7601 <■ 7774 

DDUP 0763 

OECA 0555 



DECB 0557 
DECX 0553 
DEL 0645 <* 0220 
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SYMnOL CROSS REFERENCE TABLE 



r RI, AUG 13, 1*76, 2:0B PM 



DEUB 0646 

DEXF 1400 

DFL.2 1221 <■ 1215 

DFLT 1212 

D101 7476 

DI02 7501 

DI03 7504 

DI04 7507 

OISP 2643 <* 1545 

DIV 0721 

OXVI 0542 

OIVL 0724 

DC1A 7262 <s 7233 

DM1B 7265 <■ 7234 

DK'2A 7271 < a 7246 

DN4A 7274 <« 7254 

DMEM 3172 <* . 3162 

DPP1 3244 <■ 3234 

D*P3 3336 <« 3521 

-DMP4 3341 <= 3313 3360 

DMP5 3345 <■ 3311 

0NP6 3360 <« 3351 

DMP8 3261 <■ 3366 

DMP9 3273 < s 3305 

DMU2 7243 

DMJ3 7247 <■ 7243 

0MU4 7254 <« 7247 

OMUL 7233 <» 3470 3474 
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0NE9 0630 

DPF 1412 «■ 1406 

DPl.9 7603 <« 7606 

DSEQ 8355 <■ 8247 2305 231 1 

D302 2372 <« 8367 

DSPS 2653 <* 267o 

OSTV 3121 <■ 2361 2362 

OSUB 0624 

DTST 0560 <■ 0714 12*2 1246 

DUMP 3221 <« 3152 3206 

DUP 0761 

DVL2 0732 <■ 0723 0726 

DVNP 1651 <» 1622 1635 1645 

0X82 0453 

OXCH 0574 

DZH2 0772 <■ 0767 

02HO 0767 

EX10 2522 <■ 2723 



SYMbOL CROSS REFERENCE TABLE 



FRI, AUG 13, 1*76, 2108' PH 



EXU 8527 <» 1743 1752 2416 2440 2 4 70 

EXF 1407 

EX20 2455 <■ 246o 

EXI1 2463 <» 2600 

EXI2 2471 

EXI3 2476 <■ 8472 

EXI6 2520 <■ 3107 

EXI9 2521 <■ 8711 

EXIT 2456 

EXSW 3203 <» 3164 
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SYMpOU CROSS REFERENCE TABLE 



FRJt AUG 13, 1*76, c>:08 PM 



FAD1 1011 <■ 1006 

FAQ4 1031 <* 1035 

FAOD 1001 

FCMP 1201 

FOIV 1H0 

F0V2 1143 <■ 1136 

FDV3 1163 <» 1151 

FDZR 1166 <■ H12 

FIX2 1242 <■ 1236 1237 1254 

FIX4 1247 <■ 1231 

FIXR 1223 

FIXT 1222 

FUT 1207 

FKPY 1-060 

FNEG 1175 

FNG2 1200 <» 1040 1214 1233 

FCV 1056 <■ 1053 

FSUB 1000 

OSCB 2217 <« 2173 2212 

HALT 2757 

HWOD 3143 <« 3001 

IASZ 0456 

I0M2 0015 <» 0011 

IDMY 0011 

INCA 0554 

INCB 0556 

INCX 0552 

INTO 3080 <■ 2534 
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SYMBOL CROSS REFERENCE TABLE 



FRI, AUG 13, 1?76, 210H PM 



INT1 3034 <■ 8653 3005 f014 

INT2 3033 <■ 2754 3312 f530 

INT3 3045 <* 3036 

XNT4 3053 <" 2551 3u40 J044 

ZNT3 3067 <« 2526 2b32 3056 3114 3^2 

INT6 3071 <■ 3066 

IMT7 3140 <» 2373 3023 J126 2373 2-*76 

IOPA 1724 <« 1621 lt>26 1633 1637 W.43 1656 1666 2550 3272 3306 l765 7675 77n 

IOPD 1723 <■ 1647 1662 1712 

IR 3001 <■ 0003 2771 

IRQ 3000 <■ 1603 2023 *073 2126 2i36 2225 2265 

XX2A 2775 <■ 2557 

IXBZ 0450 

IXI1 2552 <■ 2546 

IXI2 2554 <■ 2542 2&H 

IXI3 2572 <* 2553 2t>06 H612 

IXI4 2575 <■ 2615 

IXI6 2601 <« 2552 3070 

IXIT 2535 

L200 6757 <« 3420 

L202 6761 <■■ 3421 

1.204 6763 <■ 3422 

L206 6765 <■ 3423 

L210 6767 <« 3424 

L212 6771 <■ 3425 



L.214 6773 <■ 3426 
L216 6775 <■ 3427 
LAQO 0647 
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SYMoOL CROSS REFERENCE TABLE 



FRI, AUG 13, 1*76, 2108 PM 



LADR 3167 <■ 316fl 

LCK1 2623 <« 2626 

LCK2 8641 <■ 2630 

LCMP 0642 

LOS 0236 

LOO 0142 

L0D2 0150 < B 0306 0334 0766 

LDI 0751 

LOIV 0663 

LDPB 0277 

L0V2 0674 <■ 066ft 

LDX 0021 

LOXA 0601 

LOXB 0606 

LDXI 0753 

LLBL 2400 

LLS1 1574 <■ 1605 

LLSH 1570 

LMEM 3171 <* 3161 

LMPY 0655 

LOAO 0101 

LRA 0123 

LREQ 3166 <■ 3156 

LSA5 0335 <« 0325 

LSA6 0344 <* 0337 



LSAB 0323 
LST 0347 
LSUB 0650 
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SYM«OL CROSS REFERENCE TABLE 



FRI, AUG 13, l«7b, 2108 PM 



M^Sl 2301 

MASS 2266 

MBIO 2066 <« 2045 

MB20 2070 <« 2123 

MB21 2llo <■ 2127 

M322 2111 <■ 2100 

M824 2124 <* 2106 2110 

M826 2127 <■ 2107 

MOS 2267 

MOS1 2304 <» 2300 

MFD2 2253 <s 2312 

MFD1 2254 <■ 2303 

MFOS 2252 

MFTO 22*0 <■ 2163 

MFY 0704 

MFYI 0701 

MFYt 0705 

MPYM 0702 

MT82 0512 <■ 053a 0&36 

MT84 0520 <* 0511 0&35 

MT86 05£3 <« 0505 

MTBI 0502 

MT02 2263 <» 2257 

MTOS 2260 <■ 225r 

MV83 2063 <* 2053 

MV85 2065 <» 2050 

MVBD 2046 

MV8U 2226 <■ 2275 
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SYMrOL cross RCFERENCE TABLE 



FRI, AUG 13, 1*7&, 2;0B PM 



MV3P 2047 

MV9W 2025 

MVWl 2003 <■ 2051 

MVW2 2016 <* 2007 

MV*3 2020 <■ 2015 

MVW4 2021 <■ 2231 

MVWS 2023 <■ 2237 

MVWD 2000 

MVWP 2001 

MVWS 2353 <* 2029 2235 2255 3262 

MWH 2345 <« 2354 

MZRO 3207 

M2R1 3210 

MZR2 3213 <■ 3215 3217 

NEO 0614 

NOP 0564 <■ 2636 

NORM 1041 <= , 1107 1165 1221 

NOT 0654 

NQ01 7000 <» 7125 

NQ10 7016 <« 7117 

NGH 7020 <■ 7025 

NQ12 7021 <■ 7030 7103 

NG13 7026 <* 7107 

N014 7043 <» 7055 

N015 7054 <■ 7127 

N023 7062 <« 7041 

NQ24 7063 <■ 7076 

NQ25 7075 <* 713o 
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SYMBOL CROSS REFERENCE TAdLE 



FRI, AUG 13, 1*76, 2J06 PM 



NQJO 7102 <* 7061 

NQ40 7110 <* 7155 

NQhI 7125 <* 7156 

NQ80 7134 <s 7045 7060 '066 7101 

N081 7133 <* 7056 7075 

NC82 7132 <« 7053 7074 

NQ33 7126 <* 705C 7U72 

NQa5 7145 <* 7124 

NQ96 7157 <« 7142 7143 ^144 7145 7,50 

NQ87 7167 <* 7141 7162 

NQaS 7170 <* 7152 7154 7201 

NQ89 7163 <■ 7175 

NQ90 7171 <* 717^ 

NQT1 7775 <» 3526 

MQT2 7123 <« 7775 

NQTS 7121 

OPTX 1613 

OR 0023 

ORI 0755 

PAJT 3520 <* 322*5 

PAUS 2764 <■ 2640 

PCAL 2412 

PCUO 2433 <* 2412 

PCU1 2*17 <* 2437 

PCl.2 2441 <■ 2417 



PCL3 3077 <= 2421 

PCU5 24 2 2 <■ 2443 2516 JUS 3116 

PCL6 2423 <* 2511 



PASE 95 SYMBOL CROSS REFERENCE TABLE FRI, AUG 13, 1*76, Hi Ob PM 

PCN 2616 <» 2535 

PIOT 3703 <" 3527 3711 

PtSA 0307 

PR<31 3530 <■ 3671 

PRG5 3672 <* 3576 3*00 3602 36Q4 3*06 3610 3612 36l4 3616 3621 3622 3623 3624 362b 3626 J627 3630 3631 3*S32 
3633 3634 3*46 3647 3*50 3651 3654 3657 3662 366b 367o 

PRQT 3527 <■ 3520 

PSD2 2670 <■ 2665 

PSDE 2655 <* 2647 

P5H2 1470 <■ 1*74 

PSHA 1744 <* 1446 1461 "1464 ib42 1 ,54 1555 17A7 24j4 2435 2450 2455 2766 3024 3140 33l<* 331 7 3323 3325 333i) 
3332 3335 3355 3357 7?17 7722 772b 7730 7733 7735 774p 7761 T763 

PSHM 1737 <» 0101 0123 0144 0146 QX36 0302 0304 0315 0326 0330 0344 0356 0*24 0601 0702 0751 0761 0/63 0765 
0770 0771 0773 1210 1*11 1631 1651 1654 1701 2002 2025 2027 2047 2)64 2166 2227 2403 2617 

PSHR 1446 

PSTA 0317 <■ 0314 

PUL1 1732 <■ 0005 0075 0200 02ll 0t>44 0320 0335 0340 0502 0503 0523 o7o3 1517 lb22 1*25 1531 1537 2201 224o 
2241 2433 

PUU8 3232 <■ . 3237 

PW2 2755 <« 2*27 

PWR 2742 < s 0001 3010 £143 

QAUR 1336 

QLR2 1345 <* 1355 

QUR3 1346 <* 1340 

QUR5 1353 <■ 13*1 

REC1 7575 

REC2 7565 

RECV 7573 <* 7512 7514 {517 7521 7^76 

RIO 1630 

RMSK 1701 



PA! 


3E 96 






R?iW 


1611 


<a 


1570 


SCAL 


2*11 






SCAN 


1*22 






SCN2 


1430 


<a 


14g? 


SCO 


2161 






scui 


2212 


<r 


£172 2*16 


sew 


2163 






Scml 


2173 


<■ 


217* 


SEO 


1674 






SEN1 


7556 






SENS 


7561 


<a 


7564 


SEN3 


7563 






SEN4 


7571 






SENS 


7552 


<■■ 


7571 


SE n6 


7553 






SEND 


7551 


<s 


7510 


SET1 


1507 


<a . 


1500 


SET 3 


1515 


<a 


1512 


SET 3 


1536 


<a 


1506 


SET* 


1535 


<s 


153") 


SETS 


1536 


<a 


1543 


SETR 


1476 






ShUL 


1270 






SKOR 


1276 






SHFL 


1263 






5HFR 


1255 






SIN 


1664 






sin a 


3202 


<s 


3151 3163 



SYMnOL CROSS REFERENCE TAPLE 



FRI, AUG 13, 1*76, 2»08 PM 



PA9E 97 



SYMbOL CROSS REFERENCE TABLE 



FRI» AUG 13, 1*76, 2I0B PM 



SIO 1617 

SI02 1764 <« 1626 

SMSK 1706 

SRP1 0034 

SRP2 0030 

SRP3 0024 

SRP4 0020 

SSEQ 2712 <■ 2512 3103 

SST 0360 

STAX 0604 

ST8 0242 <■ 0235 

STBX 0610 

STO 0200 

STMK 2672 <* 2420 2S20 3025 3141 

STOP 2760 <■ 3002 3006 fl65 

STOR 02U < s 020R 

STR2 0221 <» 0247 0317 

STTV 3123 <» 2525 

STUN 3120 <■ 0037 1734 1754 £475 

SUB 0613 

SUBS 1552 

SXIT 2444 

SYSH 2762 <* 1730 2^23 2S31 2635 2*63 7543 

TAS2 1313 <■ 1306 1322 

TftSL 1304 <* 1317 

TASR 1317 

TBC 1440 <■ 1432 1434 1436 

TCBC 1436 



pfl3 E 98 SYMpOL CKOSS REFERENCE TABLE FHI, fl.JO J3, i*7b, S: * MM 

TCIO 7545 <» 750n 7&06 '560 7570 

TEST 1261 

TIO 1653 

Tlijft 7540 <« 755.) 

TIOD 7537 <» 75*6 

TN32 1330 <s 1324 

TNSL 1323 

TR1F 1251 <= 3007 

TR3C 1432 

TRJO 7531 <* 760n 

THPO 3134 

TRPl 3133 <» 125i 

TRP? 313? <s 1056 

TRP3 3131 <■ 1057 

TRP4 3130 <a 05*2 0«>64 0733 7342 

TRP5 3137 <= 117c 

TRP6 3U7 <= 030? 0323 0354 365 1^71 IbOl 1^4 1571 1674 1706 1716 2<?43 2367 2b02 25l<» 2 54<5 2b? 27b^ ? Tbn 

TRP7 3l?4 <« 0000 

TRW1 7531 <■ 7535 

TSdC 1434 

TSC1 0274 <s 0313 

TSCK 027? <» 0055 0111 0132 0147 0^61 0174 0206 02i7 0257 0«07 

TTIO 7547 <» 756v 7574 

TW10 7532 <* 7475 7503 ^555 

UANS 1171 <* 1011 1023 1062 H13 

UNJM 7777 <■ 1613 3400 3401 3402 3&03 3500 

UNPK 1012 <■ 1063 1115 

WAIT 2761 <« 3170 3^01 3353 3550 3-r01 3705 3716 7757 



PA9E 99 



SYMBOL CROSS REFERENCE TABLE 



FRI, AUG 13| 1*76, 2:08 PM 



WIO 1641 

XAX 0566 

XBX 0570 

XCH 0572 

XCHD 1544 

XEQ 1561 

XOfl OOP? 

XORI 0756 

ZER2 0774 <■ 077a 

ZERO 0773 

ZROB 0640 

ZROX 0775 



»A3E 100 



OPEoAND TABLES 



FRI, AUG 13, 1*76, 2:08 PM 



0017 175* 
RBUS 0005 23 
UBUS 001ft 110 



<<<<<<<<<R8US>>>>>>>>> 

MKEG 0003 3 PADQ 0004 17 PL 0000 18 

R^ 0011 27 RO 0010 41 SPO 0015 145 

X 0006 35 XC 0007 2n Z 0002 16 



MA 
SP1 



00 13 

0014 



56 
71 



RB 

SH 



0012 
0001 



43 
2 7 





0037 


747 


CC 


0027 


2 


CIR 


0000 


CTi^L 


0014 


35 


Ob 


0022 


42 


OL 


0034 


OP NO 


0026 


133 


P 


0020 


19 


PADd 


0002 


QQWN 


0010 


2 


RA 


0033 


150 


RB 


0032 


seus 


0017 


19 


SM 


0023 


53 


SP1 


0001 


SWGH 


0007 


14 


UttUS 


0016 


266 







<<<<<<<<<5BUS> >>>>>>>> 

3,1 

34 

88 
107 
145 



CPXl 


0004 


26 


CPX2 


0006 


8 


CTRh 


0015 


11 


IOA 


0011 


3 


100 


12 


5 


MOD 


ooob 


a 


PB 


0036 


27 


PCLK 


0013 


3 


U 


00*1 


IB 


RBQ 


0003 


45 


RC 


0031 


S3 


«D 


oo-*o 


77 


SP? 


0035 


87 


SP3 


0025 


119 


STA 


0024 


30 



ADO 


0037 


SOI 


AUDO 


0033 


9 


AND 


0007 


CANO 


0005 


7 


CRS 


0032 


21 


CTSD 


0027 


INC 


00 35 


163 


INCO 


0031 


8 


IOR 


0026 


pnlr 


0020 


. 4 


PNLS 


0021 


1 


QASL 


oooo 


ROM 


023 


188 


ROMI 


0022 


27 


ROMN 


0003 


UBNT 


0011 


10 


XOR 


0006 


37 







<C<<<<<<FUNCTION>>>>>>> 
17 

34 

7n 



BNOT 


0C15 


43 


CAD 


0016 


123 


CADu 


OOld 


y 


CTSS 


34 


2 


DCAD 


0036 





OVSB 


ooio 


10 


JM=> 


0014 


396 


JSB 


ooo<» 


219 


MPAD 


ooJo 


12 


QASR 


0001 


6 


REPC 


0024 


28 


REPN 


00*5 


23 


ROMX 


0002 


10 


SUB 


17 


HI 


SUBO 


0013 


5 





0037 


962 


B5P0 


0005 


57 


OB 


0022 


7 


OL 


0034 


11 


PB 


0036 


4 


PCLK 


0000 


3 


RA 


0033 


103 


RAR 


0027 


47 


S* 


0023 


22 


SPO 


0015 


65 


X 


0026 


27 


Z 


0012 


6 



<<<<<<<<<STORE>>>>>>>> 

BSPl 000<» 28 BUS 0007 

IOA 0001 ft 10^ 0002 

PL 0011 4 PUSH OOlO 

RB 0032 106 RC 003l 

SP1 noi4 154 SP2 0035 



217 


CTRH 


0017 


16 


CTRL 


0016 


47 


6 


MPEG 


0003 


4 


P 


00*0 


20 


85 





0021 


19 


CJUP 


0013 


S 


41 


RD 


0030 


54 


SbR 


0006 


b4 


93 


SP3 


0025 


111 


STA 


00*4 


as 



PA9E 101 



OPERAND TABLES 



FRI, AUG 13| 197*>, a»0y PM 





0037 


781 


PI 


001* 


3* 


NEO 


0013 


50 


NSME 


000* 


6 


SRL8 


0025 


4 


UNC 


0036 


407 



BIT6 


0005 


12 


F8 


001b 


25 


NEXT 


0035 


159 


NZRO 


0001 


31 


SHL3 


027 


10 


ZtHO 


0000 


78 



<<<<<<<<< SKIP>>>>>>>>> 


















BITS 


0006 


15 


CRRY 


ooio 


19 


CTRM 


0033 


55 


EVEN 


oooa 


cl 


F3 


003* 


14 


INDR 


002* 


6 


JLUI 


0031 


1? 


NCRY 


oon 


43 


NF1 


nolS 


33 


NF? 


0017 


17 


NOFL 


0007 


6 


NPRV 


0026 


4Q 


ODD 


0003 


12 


POS 


0012 


47 


RSB 


30 


46 


SR4 


0022 


r>9 


SRN4 


0023 


U 


SRNJZ 


0021 


22 


SRZ 


20 


16 


TEST 


0032 


12 





0037 


1267 


CCA 


0036 


*2 


cce 


0000 


CCPX 


Q001 


28 


CCRY 


0025 


7 


ccz 


0032 


CLIB 


0frl6 


11 


CLO 


0031 


12 


CLSR 


0002 


HBF 


001* 


20 


INCN 


0012 


9 


INCT 


0013 


POPA 


0026 


1* 


SCRY 


0024 


6 


SDFG 


ooob 


SJFG 


000* 


3 


SUV 


0030 


8 







<<<<<<<<SPEC I AL> >>>>>> 

9 
\h 
63 

1 



CCE 


0035 


12 


CCG 


0034 


e 


CCL 


0033 


6 


CFl 


0022 


26 


CF2 


0021 


14 


CF3 


0007 


2 


CTF 


0006 


23 


DCSR 


0011 


15 


FHB 


0015 


5 


INSR 


ooio 


16 


Lt?F 


0017 


9 


POP 


00*7 


36 


SF1 


0023 


21 


SF2 


0020 


IS 


SF3 


0003 


9 



ABS 0000 3* 

NIR 0011 15 

ROA 0007 53 

ROS 0037 31 

MRS 0036 11 



CrtD 


0002 


3 


OPNO 


0031 


11 


ROD 


0027 


18 


ROSA 


0005 


1 



<<<<<<<<<MCU>>>>>>>>>> 

CRL 0001 3 DATA 0021 

PB 0010 8 RND 002* 

ROND 0023 ROMP Q013 

ROSQ .0025 S 0030 



<*5 


DB 


0020 


30 


OPOP 


0022 


8 





RNP 


14 


5 


RNS 


00J4 


3 


2 


RONS 


0033 





ROP 


0017 


9 


23 


WRA 


0006 


54 


WRD 


0026 


7 



0007 15*4 
SRI 0003 64 



LLZ 0001 
SWAB 0006 



13 
8 



<<<<<<<<<SHIFT>>>>>>>> 

LRZ 0000 16 RLZ 0005 



16 



RRZ 0004 



47 



SL1 



0002 



81 



HP 3000 SERIES II COMPUTER SYSTEM 



EXTENDED 

INSTRUCTION 

SET 

(EIS) 



6-15-76 



PAGF 



annRESS 



CONTENTS 



LABI. PROS SRIJS FUNC SHFT pTPR SPEC SKIP 



COMMENTS 



FRT. ...TUM 4, 1976, 10:13 AM 



1 
2 
3 
4 
5 

7 
R 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3 4 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
5 3 
54 
55 



0O2 3 

002 4 
0025 
0026 
0027 
30 
00 31 
0032 
00 3 3 
00 3 4 
3 5 
0036 
00 37 
0040 
00 41 
0042 
00 4 3 
00 44 
45 
0046 
0047 
OOSO 
005 1 
005? 
0053 
0O54 
0055 
0056 
0057 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
00 6 7 
0070 



221177 
236623 
017667 
011367 
266177 
347667 
27637 7 
167667 
221177 
265377 
347667 
347667 
017667 
01 l"767 
766577 
027774 
3^61 17 
307377 
01117 7 
7 667 7 7 
357671 
257674 
377777 
37167 3 
266775 
3*7263 
165377 
257377 
37 1 167 
263377 
3076.11 
377777 
011767 
26 306 3 
1 67674 
267677 
23.1767 
3117 7 7 



7 7 5 7 3 

607 7 
77773 
77577 
7 7 7 7 7 
77774 
77771 
07773 
77572 
77777 
7 7 7 71 
7 7 7 7 4 
07773 
7 7 5 7 7 
1 7 317 
27777 
00 
7 7 3 3 7 
7 7 6 61 
777 7 7 
171^2 
0715 3 
7 7 7 7 
7 7 5 7 4 
57777 
60057 
77777 
77777 
77575 
7 7 7 7 7 
27632 
77417 
77577 
4 6 7 
171S6 
7~M63 
7 7 7 5 7 
7 7 4 .3 7 



"C3000/TT FTS PF.V . A 



FADP/FSUR, F*'PY/EDIV, E'lFG/ECMP 



FAOP/FSHP. fmpy/fotv 
FHTER VIA ,.TMP TAPI.F IN SFC 
PC,FR,PA=W,U,V DR PEL ADDR.' 



WITH SR=4, 

W_'J OP V, S_S-3. 



fadf/fsuh 
ck u,v,w bmp;ps; fetch u,v, fxch ie *ec 50 that abs (u ) > = abs ( v ) ; 
empty rp and sn'f f ars aopp at sm + 1. ? sf? tf abs ( 0) - abs( v ) ; 

R R,SP2,SPG,f-*_H, PP.SP3,SP1 ,RC_V, f'TjIi, F1,F3 MnpTFIEP. 

FA.S1,7 IIKFP f* Y F.MP\/f.r.)TV m CK U,V,W tVppJOS AMD CALC W ABS APOP. 



107 3 



EASR 



e A S 1 



FAS? 



(•• A S •! 



F.AS5 



(10 


P73) 










RA 


i)B 


Ann 


PS PI 


won 






S'l 


J SB 


PSF»-' PA 




•l.l'jr 


PA 


SP1 


bnpt 










SP1 


l Mr 


PSPO 


RHP 






OPNP 


add 


PP 






SP1 


PL 


BNOT 








PC 


DB 


A DP 


F-C 






PA 


onus 


r-wm 






PSB 


p;-j 


PR 


Ann 


PSP1 


POP 






flPNP 


mv> 


SP3 






PC 


l)T, 


n,\)')T 








SP1 


01, 


PNPT 








PA 


SP1 


PMl>T 






PSP 




SP1 


T f°C 


v\)S 


POP 






OP MP 


A DP 


PB 


■IFF 






papp 


ADD 






PVTTM 




RO 


P0'.< 


PP 


1 o o o 




RP 


API) 


. C P? 


FMB 




f« 


SP1 


ADO 


PSP1 


PHP 






OP NO 


Ann 


PA 






PR 


SP7 


SUB 




CTF 


N7.PO 


P.A 


SP3 


SIJR 
API) 




CTF 
SF3 


7EPH 


SP1 




CAP 


p PS 


PHD 






OP MP 


Ann 


PA 




ME1 




RA 


JMp 


yr.$A sp? 




Uftir. 




IJRIJS 


Ann 


SP.3 








SP3 


Ann 


SP? 






SPO 




IMC 


PSPl 


RfiP 






npMn 


A DP 


SPO 






FB 


RP 


XflP 




CLO 

SF? 


P f lS 




SP1 


TMT 


PUS 


PHP 






Ol^in 


J MP 


F^j;c; c;pi 




F3 


SPO 


HHHS 


sim 




CTF 


m 7, r n 


PA 


open 


SUP 




CTF 






£.'■*. 


INC 


PI'S 


WPS 






PC 


ADD 


PUS 


D^TA 





READ VI, SP1_V ABS APDR 

RA_Sm; EMPTY RP 

S .A > = V ? 

REAP V2, SP0_V ABS APPP+1 

SAVE VI 

V> = PI ) ? 

PC_^ APS Ali(.)P 

SM>=W? RFT IF SUPR 

READ 01, SP1_V APS APO" 

SAVE V? 

>!> = i)T ? 

u>=or, ? 

S'4> = 0? RFT IF SlJBH 

READ U? 

SAVF PI , E1.MSC4 

CO'-PP VSC!M IE FSUB 
SP^_V1 WITH USC'J 
REM) !J4 

SAVE U7 (TFMP TM RA) 
CMP Ml ,2 WTT" VI ,2 

SE1 IF IM ,2> = V1 ,7 

SF3 TF U1. ,?<>V1 ,1 
BEAU 03 
SAVE IJ4 
SAVE II? 
FXCH 117 AMn V2 

TF 01 ,2<V1 ,2 
REAP V3, SP1_V ABS APOP+7 
SAVE U3 
CLd 

SE2 TF USGMOVSGM 
READ V4 

^AVE V3; U1 ,?=V1 ,2? 
YES, SF1 IF 

P3 ,4> = V3 ,4 

SAVE *> ABS APDR AT S M +1 



PAGF 



56 
5 7 

5 8 
59 
60 
61 
62 

6 3 
64 

*** WARNING f 

65 

66 

67 

6 8 

6Q 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

8 3 

84 

85 

86 

87 

88 

89 
*** 
*#* 

90 

91 
*** 
*** 

9? 

93 

Q4 

95 

96 
Q7 
98 
*** 
*** 

99 

*** 

100 

101 

102 



ADDRESS 



CONTPNTS 



WARNING 
WARNING 



WARN TNG 
WARNING 



WARN TNG 
WARNING 



WARNING f 



0071 
0072 
0073 



2*6761 i 
3731237 
01 33776 



0074 
7255 
7257 



LAPT, RB'IS RHUS FUHC S»'FT STOP 



OPND .IMP FAS6 OC 
SPii PEPC SP1 
SP1 ADD SPO 



SPEC 


SKIP 


COMMENTS 




Fl 


SAVE U4 


Iff CM 




EXCH 111,3,4 AMD 


T M C' 


V.NC 


VI, 3, 4 te ir<v 



ERI, .TUN 



1976, 10:13 AM 



P) * 
0074 
0075 
0076 
0077 
^100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0110 
0111 
0112 
0113 
0114 
0115 
01 16 
01 17 
0120 
0121 

' 0122 
012 3 

3) * 

9) * 

0124 

012=1 

3) * 

9) * 

0126 

0127 

0130 

0131 

0132 

0133 

3) * 

9) * 

01 34 

3) * 

01 35 



** TOS l 
3235777 
3064167 
3216377 
306016Q 
3177301 
1464236 
3061156 
3776636 
3162750 
01316 10 
1630750 
2553640 
1652750 
3077677 
1660777 
1465160 
2*76740 
1637141 
1 736636 
1677160 
167661 3 
3 7 7 2 3 3 
3160073 
1762636 

** RHUS 
** UBUS 
3O6O037 
3763773 
** RHUS 
** URUS 
3060037 
3763777 

3553777 
257 37 77 
3731777 
01 33777 
** RHUS 
** URUS 

3276037 
** RHUS 
1664037 



UA r > M 

7317 

7700 

7625 

0077 

7170 

0222 

01.00 
0113 
7777 
7777 
7777 
7777 
7777 
7777 
7777 
01 no 
7772 

moo 

124 
7or-o 
0225 
7277 
327b 

oi in 

*<AY R 
ON SB 
77-71 
7777 
MAY 4 
ON SB 
2776 
7771 



AME 



* 

* 
* 
IS 

EA 



I'MPACK, VlE-4_ -V1F-/1 IF F2 , AfJD ALTGM V WTTM II WTTH RTT7; 

RB,SP2,Si 0,RB=l , RP,SP3,SP1 ,RC=V, F2 IF SUB. 
FXJT TO HANS T c " AE,SfV)=0 P& UEXP-VEXP>56 ? El , D N0_WSGM , EVP , 

PB,SP3,1, (F0PCfpyRPUS_(.'lE-4, RD , SP2 , , PC. VI F-4 , E3_0, CTP MOD. 



PL 
S6 



n 



f>; A M E 
RR 

Rn 

RB 
RP 

wr 

CT 
RO 



RHUS 



EAS7 



nous 



PC 
SP 
U H 
SP 
\]n 

RD 
UR 
CT 
HP 

!|f1 

s< 

UB 
UU 

!4 n 
RC 
so 



BEFORE 
Ann 

PO"N 
AND 

PO**N 

TPR 

,TS'< 

BOr* 

.TMP 

SUB 

TNC 

SUB 

1 MC 

SUB 

TNC 

SUP 

PPM 

SU«* 

I: DM 
,1V! P 

PO' 
.1 ^ P 
RFPC 
OASP 



PRPCFDlwr: PUSH, PHP OR I 



E1_USC.M = WSG W 



RT, 



JS 



7.t?2 * 

FAS7 



F A F P 
LAM 



SP1 
FAS<> 



H US 

i-n 

PR 

PD 
PC 

spi 

SP1 
SP3 

SP3 

rn 
pn 

ctph 



ID 
PC 



077700 
OP NO 
7 7 



m 



■>1 00 



E F'lRC 
US ^R 
EA 

E FOFC 
"JS OR 



* 

EA 



FO PN FOLLOW IPC MM 
SI. 1 MISSING 

SR PC Rn 



FP 
ST.1 



CiM FPLL01 
MISS IMG 
URUS RO 
RC 



FROM PASI 

( ASI. ST 1 

ADO 
T')G l.TNc 
FI-QM OAST. 

OASL ST 1 

ADD 



N7,P0 

'INC 

V2 

UMC 

CRPY 

ZERO 

CPRlT 

ZERO 

CRRlf 



1 

ZERO 

01 00 ,\'Z.RO 

P'JC 
Oo7000 

NEC 
IfCT CTPM 
If-TT CTP'i 

PMC 



n^ /20) 



C TR"« 



ON /20) 



S9 



77^7 

7777 

7 775 

7777 

MAY B 

ON SB 

7773 

"AY BE FnpCEP 

2777 

* 



<E FDRC 
JUS OR 



EP 
ST,1 



SP2 Ann 
SP3 A 01' 

spo Ann 

Snj ADD 
ON FOLLOWING f.-TNF 
MTSSr.JG FROM OAST 
RA RR OASI. ST 1 

CM FOLLOWING MNP 

UMlTS OAST, ST, 1 



CTAST, 

PO 

PC 

(TASL 
PP 
PC 

SP3 
SP2 
SP1 
SPO 



CTAST. ON /20) 



PB 



JO* 

CTM_M1F, 

R3_VEXP 

np*JI)_UEXP = WEXP 

RD.V1F 

CF3; CK 72,3=0 l* VI, 4=0 

CRB_U1F, RET WTTH RB_0 ) 
»0_V1E J.MCL LEADING mjF, 

OMP TF ADD 
ELSE V_ -V; V4_ -V-1 , ZERO? 
f'O; V3_ -V 3-1 , ST v V2 , 1 
TF V4=0, ZERO? 
-V2-1, STM VI 
IF V3,4=0, ZERO? 
-V1-1 
IF VV,3,4=0 

n *• F 



-V3 
V2_ 
-V2 
Vl_ 
-VI 



V3_ 
iJO; 
V2_ 
no; 
vi„ 

PB.U1E I "CI, T.RADTMG 

CTR_VEyP-UEXP + 1 ? 

TF UEXP-VEXP<2 ADO 

V LEFT, CTR_VEyP-UFXP 

'•'_') TF UEXP-v;-:yp>S6 
AD' V RIGHT 

UEXP-VEX°-7 PITS 



V LEFT 1 [F CTRM 



ELSE V LEFT 7 



RB, SP i ,SP1 , HA.UIF-4 
R0,SP2,SP0,RC_V1F -4 



ALTG'I U WTTH BTT7 



U_U+V, EXIT TP ZANS IF AMSW=ZERO: 



CTR-O, 






AD J T 


■ EFT 


TF W( 


ELSE AIM RTGMT, 


CF3 






SRI TF 


it (a : 


:7")<>o 



PAGF 3 ADDRKSS CONTENTS LABL RBUS SBUS FUNC SHFT STOR SPFC SKIP COMMENTS FRI, TUN 4, 1976, 10:13 AM 

103 * RR,SP3.SF1 ,(F0PCFD")RRUS = U1F-4, RO , SP? , SPO ,RC=V1 F-4 , OPND=WFXP. 

104 * RD_WFXP-2. RR,SP3,SP1 ,RA_W1F-4*4, E3_l. 

105 * 

106 0136 31677517777 PC ADD FA NC»Y M4_U4*V4, CRRY? 

107 0137 37776407775 SPO TNC ZERO YES; V3=V3+1, CRPY? 

108 0140 16317517774 RPJ UBUS ADD ?P1 NCPY NO? U3_U3+V3, CRRY? 

109 0141 35776407777 SP2 INC ZERO YES; V2=V2+1 , CRPY? 

110 0142 25537517776 UBUS SP3 ADP SP3 MCRY ''0? U2_U?+V2, CRRY? 

111 0143 30776777777 . , ■ RD TNC YES; V1F-V1F+1 

112 0144 16657417072 ' PB UBUS ADP PR SE3 NZRO U1F_H1F+V1F, SF3; CHECK 

113 0145 333420002?? RA JSB Z*23 CTRL ZERO W2,3=0 IF WIF,4=0, C'TR_0 

114 0146 26611777600 OPND POM RD 177600 RD_WEXP-2 (U=W*4) 

11.5 0147 23176777777 SM INC PUS RMS READ W ABS ADDR FROM SM + 1 

116 * 

117 * NORMAL EXIT FOR FADD/ESHP ANP EMPY/EPT.V (N0R3). 

118 * NORMALIZE AMD POUNT M RP , SP3 , SP1 , R A = W I F-4 , F3,CTR=0 IF N0P3. 

119 * CTP_SHTFT CNT, F2-1 IF SHIFT RIGHT ELSE F2_(), IF NORM, 2 F3_0. 

120 * 

121 01.50 32341417400 NHRN RR PDMN CTRL 7400 K'ZRO 

122 0151 37766^60162 JMP NPRf "mc ADJ LEFT IF W(0:7)=0 
*** WARNING ( 4) *** SBUS MAY HE FORCED ON FOLLOWING TTNF 
*** WARNING flO) *** UBUS ON RPUS OR SP1 MTSSTMG FROM OASP HASP ON /20) 

123 0152 33640773272 MOR2 RB RA OASP SP1 PB INCT ELSE APT RTGMT, SRI 

124 0153 37677777177 ADn RA TF3 

125 0154 32761407400 N0R3 RB pn*iM 7400 ZERO 
*** WARNING f 41 *** SRUS MAY BE FORCED ON FOLLOWING LT^c- 
*** WARNING f10) *** UBUS ON RHUS- OP SP1 HISSING FPOV OASP (TASP ON /20) 

126 0155 33640773272 R B RA OASP SP'1 PR INCT 

127 0156 33676517417 R \ TNC PA SF? ►'CRY F2_l , RNP 

128 0157 01316507/77 SR1 INF SP1 CRPY 

129 0160 37766360171 jmd PACK D MC PACK OR 

130 0161 377663601*7 J MP NOF 7 UWC FINISH RMP TF ".'EC 

131 - ♦ 

132 ' 0162 32772067177 NriR6 RB REPC CF3 BTTS CF3 

133 0163 16640067273 PA PPUS OASI, ST 1 PP INCT PITS NORM LEFT TO BTT8 TF NEC 

134 0164 37676517425 RBUS TNC "A CF2 NCRY P'2_0: RND 

135 0165 01316507777 SP1 TNC SP1 CRRY 

136 0166 377663601 M JMP PACK UNC PACK OP 

137 0167 25536517777 NOR7 SP3 TNC SP3 *'CPY FINISH RND IF NEC 

138 0170 ^2656777777 RB TNC PP 

139 * 

140 * PACK AMD STORF W AT (OPND), TEST FOR UN/OVFL? 

141 * F1=WSGN, IF F3 RTGPT SHIFT TMHTBTTFU AND ARSCWI^O ALLOWED, 

142 * PHrWEXP, RP.SP3,SP1 ,RA = W1c--4, CTR = DELT'\ EXP FROM 

143 * NORMALIZATION (F? TF NORMALIZED PIGHT), OVFL CLR, SR=3: SP_0. 

144 * 

145 0171 2*137747541 P»CK SR OPND ADD PSPO WPD F3 SPO_W ABS ADDR+3 
*** WARNING f 4) *** SBUS MAY BE FORCED ON FOLLOWING LTNF 
*** WARNING flOl *** UBUS ON RPUS OR SRI MfSSTMG FROM PASR (TASR ON /?0) 

146 0172 33640773772 RB RA OASP SRI RP SRI AFTER RND IF NF3 

147 0173 33177777437 RA ADD PUS DATA STORE W4 

148 0174 01633157716 I'BUS SP1 TOR PC CCG NF1 RC_W4 TOR W3; CCG 

149 0175 37777777677 ADD CCL TF W POS ELSE CCF 

150 017* 37.127377555 SPO CAD BSPO WPD 

151 0177 01177567437 SP1 ADD BUS DATA F2 STORE W3 



PAGE 



152 
153 
154 

155 
156 
157 
1^8 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
lb9 
170 
171 
172 
17 3 
174 
175 
176 
177 
178 
179 
HO 

m 

1*2 
1=13 
1 S4 
185 
136 
187 
188 
139 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 



ADDPFSS CDMTFNTS 


0200 


15767777770 


0201 


32657777336 


0202 


17735372305 


0203 


3"M27377555 


0204 


25177777437 


0205 


25633377051 


0206 


37127377555 


207 


32177777437 


0210 


35766030214 


0211 


35773007471 


0212 


37777757777 


0213 


32726340740 



LABI, F<RUS SRUS FUMC SMFT STOR 5PFC SKTP 



COMMENTS 



FPI, -TUN 



1976, 10:13 AM 



0214 
0215 
0216 
0217 
0220 
0221 



0222 
0223 
0224 
0225 
0226 
0227 
2 30 



0?35 
0236 



24357771777 
16777522776 
22207777775 
1 4531 55001 
16536777777 
37571603134 



25773O07774 
37657707777 
37606340231 
32641600077 
26606340235 
37317777075 
35526360?35 



0231 37657777457 

0232 37537777077 

0233 37317777777 

0234 37677777777 



23176777777 
37346360171 



PD 
URUS 

RRHS 
SPO 

PC 
SPft 



RC 



CTPM 

RR 

SRUS 

SP3 
SP3 

RR 

SP2 

SP? 



SUP 
ADD 
CRS 
TAD 
ADD 
TOP 
CAD 
ADD 
JMP 
I OR 
ADD 
JMP 



ST.l 



FFOV 



fcp 6 ; 



PR 


FHR 




SP? 


HRF 




PSPO 


WPD 




PUS 


DATA 




PC 


CLSP 




PSPO 


WPD 




PUS 


DATA 


ODD 




SFt 


7.F.R0 
NEXT 


FP2 




F3 



EXP=FXP+-NORM SHTFT CNT 
PACK SGN A^D EXP INTO Wl 



* 
* 

* 

* 
* 

* 

FFOV 

F.FV1 



* 

* 
ZP2 3 

7, ft m l 

UAUl 



* 

ZAN2 



UAN2 



ADD/SUR 
vPY 

DTV 



fxp nvn.-: 



1000 
1000 
1000 



UNFT,; 



TO 

TO 



1377 
1 377 



SP2- 


CSI,(ABS(W1)) , SF1 


TF 








POSS UNFT. 


STORK W2 








RC-W4 TOR 


W3 


IOR W2# 


SP_0 


SPO_ 


W DB 1 


*FL 


ADDP 




STORK Wl 








JMP 


IF UN(F1 )/OVFI. 




POSS 


UNFL 


IF 


ARS(W)=0 


ELSE 


OONF. 








JMP, 


CCA 


TF ABS(W)=0 


AND 


AR.5(4) = I 


[) IS nK C2C 


JMP) 


0000 


(W = 0) 


TO 


1711 




0000 


(«/ = 0) 


TO 


1 400 




o o o 


(W = 0) 


TO 


1400 





OVFL: F1=0, PAPA»'.*ir UNFT.: F1=1, PAR\M_%1t KOZR(EFVI): 
URUS=STA, F1=0. CTF=?, PAPAM_%12; SPOsa' ARS ADDR, SR<4. 

FXIT TO TPPO WTTM SP3_PAFA V < AND FF TRAPS E'.'ARLFD TfiS_W RP PKL 50PR. 
TRPO SFTS "P 1MFPPUPT 1. ,25 TF TRAPS ENARLKD ET..SF SOV,NFXT. 



URUR 
SPC 



ST A 
URUS 

OR 

CTRL 

URUS 



ADD 
ADD 
SUR 

PIT* 

Tr.<c 



IT Z 
ST 1 



CTRT. 

PUSH 
SP3 
FPI ■ 

PAR 



TPPO 



POS 



00 in \'F1 



7.R2 3: 
7 AM : 

MAM : 

7 AM?: 
HAW? : 



SP1 



SPO 



r >RT MTH PP_0 TF SP1 

F3 = 1 , SP = 3 . ''VFL CT.R 

Fl ,OPND = /S r *' ,\ XP, PR 

SR = 3, nvFL (T v* FXTT 

RD = 0, SRr3. OVFl. CT-P 

Fl ,HD,RR,Sr-3,SF'J ,PA=W, ^3 = 1 

FXTT TO PACK W T TH OPND_W ^ 



CTR.O 

STA(?) = 1? (TRAPS FNARLFD") 

YES, TOS-d DR RET, ADDR 

PARA'_*10+crP 

+1 TF Fl 
FXTT TO TRPO 

UAM . 



SP3O0; ELSE 7.AN2 WITH RD_0 OP 

FXTT Tn ZAM2 WTTM RR_9. 
SP3,SPl (SP?,SPO TF NF3) ,PA = W1 [H-4, 
HAN? MTH Fl ,RD,RR,SP3,SP1 ,RA_W, F3_l 

UA'J? WITH Fl ,RR,SP3 ,SP1 ,RA_0, F3_l . 



SP3 


TOP 




ADD 




JMP 


RR 


PQMf. 


nPNn 


JMP 




ADD 


St>2 


J.V° 




ADD 




ADO 




ADD 




ADP 


SM 


INC 




,1 ^ P 



7 AN? 



V t N 2 



P?.M? 



PTCK 



FB 

PO 

PR 

PD 

SP1 

SP3 

PR 
SP3 
SP1 
PA 

PUS 
CTRL 



7FP0 
P S M 
F? 

000077 

F3. 

SF3 



l.'NC 



SP = 3, OVFT, CLR; 
ADDR, CTR.O. 



RET, RR_0 IF SP1,SP3<>0 
RR..O, 7AN2 IF F3 
ELSE UANl; RB_a'1F 
RD.WFXP, JMP IF SP3,SPl 
SPl.SP0=W3, SF3 
SP3_SP?=W2 



OK 



CF1 
Sf 3 



POS 



PR_0, CF1 
SP3-0, SF3 
SP1_0 
RA_0 



UNC 



READ d 
CTR_0; 



ARS ADDR 
PACK AND 



FROM SM+1 
STORK W 



PAGE 



ADDRESS 



CONTENTS 



LAHI, PBUS SPUS FUMC SHFT STOR SPEC SKIP 



COMMENTS 



FPT, JUN 4, 1976, 10:13 AM 



207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 



0243 
0244 
02 45 
0246 
0247 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0300 
0301 



22176777572 
223177 77773 
23662360770 
01766777773 
01 137777561 
26602360030 
22 3177 7 7772 
37127377575 
26642360035 
37127377575 
26737777237 
00766030426 
23176777741 
37177777426 
305377776^7 
26677777777 
01177777561 
37772607777 
16774333272 
17557777777 
23176777757 
31 177777437 
26637777777 
01176777561 
35537777777 
25772607777 
16774333271 
17557517766 
37156777017 
26317777777 
01177777577 



* 

* 
* 

* 
* 
* 

* 

* 
* 

* 

* 

* 
* 

* 
8,0243 

FMPY 



KMPY-/FDT.V 
FOTV: FXTT TO FDTV WTTH CONDITIONS LTSTED AT EDIV. 
FMPY: EMPTY RP, SAVE W ABS ADDR AMD X AT SM+1,3, FETCH U AND V. 
CK RDn.-JDS OF U.V.W, CLO, c.k fop u or v zero, calc w frhm partial 
PRODUCTS P4-16 SMOVM RELP*1. IM GENERAL, (POPTTOMS OF) SUM OF 
PREVIOUS PARTIAL PRODUCTS ADDED TNTO yPAD CALCULATING THE ■ "FYT 
PARTIAL PRODUCT. CRPY TS TESTED AS INDICATED. 



MSt> 16 

K1 



C 

MSP 14 

MSP 15 

LSP1* 

«1 



MS PI 3 

LSP14 
LSnis 

W2 



C 

cc 
N-srii 

^SP12 
MSP 13 
TSP14 
T.SP15 

W2 



VuSPO 
VSP1 
LSP1 1 
LSP12 
LSP1 3 



W3 



(10243) 



PB 
PA 



PA 
SR 



RB 
SPO 



S D <> 



SR 
X 



SR 



RB 



SR 



RC 
X 



DB 

DP 

SM 

SP1 

SP1 

OP MP 

DB 

OPNP 

OP MP 

CIR 

SM 

RP 

OPMD 

SP1 

URUS 

SB US 

SM 

RC 

OPNn 

SP1 

SP2 

SP3 

UBUS 

SB US 

OP .MP 
SP1 



TNC 

ADD 

JSP 

UMPT 

A DP 

JSP 

ADD 

CAD 

JSP 

CAD 

ADD 

J M P 

TNC 

ADD 

ADD 

ADO 

ADD 

MPAD 

ADD 

TNC 

ADn 

ADD 

INC 

ADD 

PEPM 

WPAL 

ADD 

TNC 

ADD 

ADD 



PSHw 



EAS1 



EAS2 



Fr-I V 



SP1 



SP1 



C 

CC 

MSP7 

MSP8 

MSP9 

"SP10 

LSP1 1 

LSP12 

LSP1 3 



W3 



PUS 


ROD 




SP1 






TA 




(J Mr 


P.SP0 


ROD 




PD 




II -JC 


SP1 






PSPO 


ROD 




PR 




l.i iC 


PSPO 


POO 




SP2 


ors» 


ODD 


PUS 


WRS 




PUS 


DATA 




SP3 


CLO 




PA 






PUS 


ROD 


20 




INCT 


CTRM 


X 






PUS 


WRS 




PUS 


DATA 




pr 






BUS 


ROD 




SP3 




20 




INCT 


CTRM 


X 




NCPY 


SBP 


ABS 




SP1 






BUS 


ROD 





MSP4 
MSP5 
VSP6 
LSP7 
LSPP 
LSPQ 
LSP10 



MSP4 
MSP5 
MSP6 
LSP7 
LSPR 
LSPR 
LSP10 



LSP4 
I.SP5 
LSP6 



LSP4 
LSP5 
LSP6 



U7*V4 
V3*U3 
U4*V2 
U1 *V4 
V1*U4 
U3*V2 
V3*U2 
V1*U3 
U1*V3 
U2*V2 
V1*U2 
U1 *V2 
U1*V1 



W4 



W4 



READ 


U2 






SP1.V ABS A DDR 






PA_S ! 


-', EMPTY RD 






SM>=V? 






READ 


V4 






SAVE 


U2; CK V> = l 


[)L,« 


lM> = w 


SP1_W ABS ADDR 






READ 


V3 






SAVE 


V4; CY. svt> 


r!l, 


U,'Ai> 


READ 


V2 






SAVE 


V3, SR_2 






J MP ■ 


IF EDIV 






SAVE 


X AT SM+3 






LOAD 


U2 FOP P4, 


CLf 




SAVE 


V2 






READ 


U3 






P4=U2*V4 






X,J 


SP3_P4 






SAVE 


W ABS APDP 


AT 


SM+1 


SAVE 


U3 






READ 


U4 






LOAD 


V3 FOP P5 







P5= ( V3*U3+LSP4 ) +"SP4 

ARS-BMK,X,SP3_P5 
SAVE M4 
READ Ul 



PAGE 



AHDRESS CONTFNTS 



LARL FBilS SBUS FUMC SPFT S FOR SPFC SKIP 



COMMENTS 



FRI. .TUM 4, 1976, 10:13 AM 



262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

219 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 



0302 
030 3 
0304 
0305 
0306 
307 
0310 
0311 
0312 
0313 



0314 
0315 
316 
0317 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0330 
3 31 
033? 
0333 
3 34 
0335 
3 36 



0337 
340 
0341 
0342 
0343 
0344 
0345 
3 46 
0347 
0350 
0351 



01537777077 
25772607217 
16774333273 
17557517766 
03156777017 
37167377575 
26367777317 
16326010314 
31773017770 
01766000020 



14531600100 
37772707766 
16774333272 
17557771777 
17657774777 
35773377772 
33773017776 
26766000020 
26357777337 
16761777700 
16177777635 
26763377315 
14331600100 
16537777777 
25772706172 
16774333274 
17657774777 
17777770766 
03557777016 



31537777777 
25772606772 
1677 43 3 327 3 
17557517046 
37777777217 
36537777777 
25772607777 
16774333270 
17557617766 
37777777217 
25657777777 



* 
* 



SP1 ADD SP3 SF3 

SP3 PFPN IWSR 20 

TMCT CTP*I 
"JCPY 
APS 
ROD 
HBF 

MZRH 
P7,Rf) 

ZF«n 



KA 


imns 


MP AD 


SPl 




X 


SBIIS 


ADO 




y 




RRR 


INC 




SBR 


SPO 




CAP 




P<IS 




OPNP 


ADD 




CTR 




unns 


JMP 


FMP2 


SPO 


pn 


RC 


TOP 








Sf J l 


JMP 


Z * N 3 





LOAD U4 FUR P6, SF3 
SR_3 

P6=(!J4*V2+T,SP5)+ V SP5 

ABS-BMK,X,SP3-P6 
READ V1 

CTP_"TF, Fl-HSGM 
SAVE U1 , JMP IF MZPO 

JMP IF U=0 



SP0,PD,RC,SP1=P. C1P=niF, npND,RA,SP2 ,PB=V, AHS-BNK , X , SP3=P6 , 
F1=USGN, F3=l , SP=3 



CTRI, POM 

X PFPN 

RB IIRI1S *'PAD SPl 

SBUS ADO LT.Z 

SPPS ADD PP7 

RB SP2 1DR 

UBUS RA TOR 

OPND JMP ZAN? 

npwn ann 

UBPS PfP N 

SPO UBUS AOP 

spo npMn xtip 

CTRI, PPM 

UBUS M>P 

PB SP3 PFPN SWAP 

SP1 IJBUS mpad SP1 

SBUS ADD HP? 

Y SBUS P^n T,P7 

UBUS RUP flPP 



SP3 


000100 
10 


T,3AD U1F T*'CL LEADING ONE 




INCT PTPM 


P7 = 1J1*V4+MSP6 


X 




(SP=P6 CRRY) 


PB 


'iZRO 


T,H X,RH RB.LM SP3_P7 




ZERO 


JMP TF V=0 


CTRL 


FHB 


CTR-VIF 




177700 


VEXP WITH USGN 


BUS 


rjpwn 


npM(.)_ni+VFXP 




HBF 


F1_WSG*' 


SPO 


oonioo 


SPO.VfF TNCL LEAPING ONE 


SP3 




LOAD VTF INCT, LEADING ONE 




CF3 10 


rF3 




FNCT CfRM 




PH 




P8=( ( VI *U4 + LSP7)+wiSP7) 



AP.S 



+P6 CRPY 

X,PH RK,LH SP3.PP 



PPNl"), Rn.PC = UFXr-+vFXP,UTF-3. SPO , P A , SP2=VTF-3 , SP1 EMPTY, 
X,RH RH.LH SP3 = PP, F1=WSr.N, F3 = 0, SR=3, ABS-R^K MOPTFIFD 



RB 

RA 

X 



PD 
X 



RC ADD SP3 
SP3 PFPN- SWAP 
UBUS PPAD SPl 
S^US ADO y 

ADO 
SP2 A DP SP3 
SP3 PKPU 
BROS fcP^P S*>1 
STUS ADn X 

API) 
SP3 ADP FB 



20 

TNCT CTRM 
CI..SR MCRY 
INSP ' 

20 * 

INCT TTRM 
PfRY 
I'JSR 



LOAD U3 FOR P9 



P^=(T.I3*V2+T,SP9)+MSP8 

SR,X,SP3_P9 
LOAD V3 FOP P10 



P10=(V3*P2+LSP9)+MSPP 

SR,X,SP3_P10 
PB_LSP] 0=W4 



OPNn,RP,PC=UFXP+VFXP,UTF-3. S»0,RA,SP2=VTF-3, 

SR,X,SP3 = P10, P1=vvSG w , RB=W4, F3 = 0, ABS-BMK UMDF, SPl FMPTY 



0352 37637777775 

0353 37772707766 

0354 16774333271 



SPO ADD 

X PFPN 

PC UBUS N'PAD SPl 



SP3 



1.0 
TNCT CTPM 



LOAD VTF FOR P11 
P11=V1*U3+-MSP10 
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LABL RBUS SBUS FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FPI, JUN 4, 1976, 10:13 AM 



317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 



0355 
0356 
0357 
0360 
0361 
0362 
0363 
0364 
365 
0366 
0367 
0370 
0371 
0372 
037 3 
0374 



0375 
0376 
0377 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0410 
0411 
0412 
0*13 
0414 



0415 
0416 
0417 
0420 
0421 
0422 
0423 
0424 
0A25 



17557771777 
17317774777 
35637777777 
26721600077 
16531600100 
25772706774 
16774333271 
17317774777 
17777770766 
16557777761 
30537777777 
25772606774 
16774333273 
17557517046 
37777777217 
25317777777 



37537777775 
377727Q7766 
16774333270 
17617771777 
17637774777 
35531600100 
25772706771 
16774333273 
17637774777 
17777770770 
16617777041 
25637776211 
35531600100 
30772707217 
16774333275 
17677777777 



23176777761 
26761777700 
16611737700 
31537777777 
25772736773 
32640733276 
17677777217 
23176777777 
26546360154 



SBUS AOO LLZ 

sbus Ann ppz 
SP2 Ann 

OPND ROMfr 

UBUS POM 

SP1 SP3 PEPN SKAF 

PC UBUS MPAD SR1 

SBUS ADD RPZ 

x. sbus adp lpz 
sr ubus Ann 
rb Ann 

SPl SP3 PEPN SWAP 
PA UBUS f-PAP SPl 
X SBUS ADD 
ADn 
SP3 TDD 



X 

SPl 

FC 

SP2 

SP3 



SPl 

X 
SP3 



SPl 



000077 
000100 

10 
IWCT CTPM 



20 
INCT CTRM 
CLSP MCRY 
TMSR 



(SP=P10 CRRY) 

Lri X,RH SPl ,LH SP3_Ptl 
RC-V3 

SP2_UIF W/O LEADING ONE 
LOAD UTF INCL LEADING ONE 



P12=((U1*V3+LSP11 )+MSP1 1 ) 

+P10 CRRY 

X,RH SP1,LH SP3-P12 
LOAD U? FOR PI 3 



P13=(U2*V2+LSP1 2)+^5P12 

SR,X,SP3_P13 
SP1_LSP13=W3 



nP»JD=UFXP + VEXP,U1F . SP2,P0=UlF-2 W/O LEADING ONE, SPO , RA = VI F-2 , 
SR,X,SP3 = P] 3, FlsfcSGf, SPl,RB = W3-4, F3 = 0, ABS-RNK ITNDF, PC EMpTY 



SPO 

X 

RD 



RC 
PA 

PD 
SR 
PC 



SPO 



ADD 



SP3 





PEPN 






10 


ubus 


MPAD 


SPl 




TNCT CTPM 


SBUS 


ADD 


L! Z 


pn 




SRUS 


Ann 


PPZ 


PC 




S»2 


POM 




SP3 


00^1 00 


SP3 


PEPN 


SWAP 




10 


UBUS 


MPAD 


SPl 




T'iCT CTRM 


SBUS 


Ann 


PPZ 


PC 




SBUS 


ADD 


LPZ 






UBUS 


ADD 




PO 


CLSP 


SP3 


Ann 


S* AB 


PC 


I MSP 


SP2 


POM 




SP3 


0001 oo 


PD 


PEPN 






T fT SP 10 


UBUS 


MPAD 


SP1 




INCT CTRM 


SBUS 


Ann 




RA 





LOAD VTF FOR PI 4 

P14=VI*U2+MSP13 

(SP=P13 CRRY) 

I..H RD,PH RCLH SP3-P14 
LOAD UTF INCL LEAOTNO ONE 



P15=((U1*V2+I SP14)+MSP14) 

+ P13 CRRY 

PD,RH RC,LH SP3-P1.5 
RC-RH RC,LH SP3=W2, SR_l 
LOAD UTF l^CL LEADTNr; ONE 
SR.2 
P16=U1*V1+MSP15 

RH RA,LM SP3_P16 



0P\D=UKXP+VEXP,U1F, F1=WSGW, RA(10:15),LH SP3 ,PC,SP1 , RP=W , 
F3=0, SR=2, AHS-PNf UNDF, SP0,SP2,RD,X EMPTY 

RESTORE X, READ w ABS ADDR, SR_3, CTP-0, 

RD.WEXP-1 , PR,SP3,SP1 ,RA_WIF-4*2. 
FXTT TO NOP3 TO FTNISH NORMAL IZATION , RND AND PACK. 



SR 



SM TMC 

OPND FOMN 

UBUS POM 

RC ADD 



PUS Rns 

17 7 7 
PD 1.37700 
SP3 



PA SP3 REPN SWAP 05 

UBUS RB OASP SPl RB INCT CTRM 

SBUS ADD PA TNSR 

SM INC PUS ROS 

OPND JMP NOR3 X UNC 



READ X FROM SM+3 

RD_UFXP+VEXP-25 7=WFXP-1 
LOAD W2 FOR NORMALIZATION 

RB(7tl5) ,SP3,SP1 ,RA_W1F-4*2 

SR„3, CTP_0 
READ W ABS ADOR FROM SM+1 
RESTORE X; NORM, RND, PACK 
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ADDRESS CONTENTS 


372 






37 3 






374 






375 






376 






377 






378 






379 


0426 


37167377575 


380 


0*27 


26537777277 


381 


0430 


231767777S7 


382 


0431 


31 177777437 


383 


0432 


35773377272 


384 


0433 


25773017636 


385 


0434 


267660006M 


386 


0435 


26621777700 


387 


0436 


23176777741 


388 


0437 


37177777426 


3H9 


0440 


35317777477 


390 


0441 


01137777577 


3<M 


0442 


26772677337 


3«2 


0443 


16660332272 


39 3 


0444 


37657777265 


394 


0445 


2634337731 1 


395 


0446 


14136777575 


3<*6 


0447 


2<S541677700 


*** WARNING 


f 8) *** TOS LPAn 


397 


0450 


31723777765 


3^8 


0451 


23177777741 


399 


0452 


35167777426 


400 


0453 


2S737777777 


401 


0454 


30537771777 


402 


0455 


30637775777 


403 


' 0456 


37176777575 


404 


0457 


26337775777 


405 


0460 


17617770217 


406 


0461 


17553147770 


407 


0462 


14777777066 


408 


0463 


1677301776ft 


409 


0464 


2^606000020 


410 


0465 


303177772^1 


41 1 


0466 


01177777637 


41 2 


0467 


26617775777 


413 


0470 


17777770777 


414 


0471 


16837777775 


415 






416 






417 






418 






419 






420 






421 






422 






423 






424 






425 







1 , u 


LEFT 8 


; SF3 IF 


' W PO 


F3_ 


-WSGN, 


Fl MODIFIED. 


READ 


V1 








SAVE 


V? 


(TFI 


"IP TM SP3) 


SAVE 


w 


ARS 


ADD" AT 


SM + 1 


CTR„2 








CIiO 










EDZR 


IF 


v=o 






RC-VSGN 


,FXP 






SAVE 


X 


AT SM + 3 




LOAD 


V3 


FOR 


SHIFT, 


SF1 


READ 


U1 









I.AHI, PRUS SRUS FUMC SHFT STHR SPEC SKTP COMMENTS FRI, JUN 4, 1976, 10:13 AM 

* Fniv 

* KNTFP FROM EMPY WITH II , V , W BDUr.'DS CHECKED AND SPl=U ABS ADDR, 

* SP0 = V2 ARS APDR. RC = W ABS ADDP, "D=U? , OPNU , SP2 ,P.B = V2-4 , SR = ?. 

* FINISH FETCHING V ,V, SAVF W ARS ADDR, '4EXP, X AT S^ + l : CI,0; CK U OR 

* V = 0? SHIFT V I.FFT Q TMSFRTTNG LEADING 

* CTF,SP3,SP1 ,RC .RD.U, RA,SP2,npvn,RR_V, 
* 
ED IV SPO CAD PUS ROD 

OPNO ADD SP3 TMCT 

S« TNC PUS WPS 

PC ADD PUS DATA 

PR SP2 TOP Tf-'CT 

UM)S, SD3 IOR CIO "'7.R0 

OPN'D JMP F'DZP ZERO 

QPND POMN PC 1777^0 

SR SM INC PUS WPS 

X ADD PUS DATA 

SD2 ADD SP1 SF1 

SP1 ADD PSPO ROD 

OPMD PEPM FHB 1 I 

RR URUS OASl SI 1 PA F'CT CTRM SHIFT V LEFT 9, TNSEPTTMG 

PRUS ADn FR TNCT LEADING ONF; CTR_1 

PC OPNP XOR CTRL Hp.F CT«_'IIF, SF1 TF VSGNOUSGN 

SPO CTRL INC PSPO ROD READ U3 

OPMD POMN X 077700 X_UEXP 
MAME IS OLD MA^E RFFHRE PRFCFDTMG PUSH, P )P !1R INCN 

PRUS PC AND SP2 SP2.VEXP 

SR S" ADD PUS WRS SAVE WEXP-256 

X SP2 SUR PUS DATA AT S^ + 2 f U^'XP- VFYP) 

SP3 ADD SP2 SAVE V? 

RP ADD LIZ SP3 SP3.T.H U2 

RD ADD PLZ FC PC-R" U2 

SPO TMC PUS PHD PR AD IJ4 

OPNP ADD RT Z SPO SPO.PH 113 

SHUS ADO LP7, PD IK'S" RD_LH U3, SR_3 

PD SRUS IOP V Fl X.U2 IOR U 3 , 

X CTRL A OD SF3 SF3 (W POST TF USGU=VSGN 

X MRUS IOR r.'ZR.O HEXP,UIF IOR 112 TOP U3 

OPMD vTMP ZA.N* PR ZERO RD-.0 , JMP TF ARS(01=ZERO 

PC RH ADD SP1 DCSR SAVE U2 (SI, 8), SP.2 

SP1 ADD PUS OP^P SAVE V3 

OPND ADO RT 7 PD SAVE U4 (SL8) 

SRUS ADD LPZ 

SPO URUS ADD PC SAVE U3 (SLR) 

* Il=CTP,SP3,SP1 ,PC,PD 01 14X lftX 1 6X 7X X RO 

* V=RA,SP2,OPNL,PR IX 14X 16X 16X 7X «0 
* 

* CALC: 01=U1,2/V1 CARRIED OUT 17 PLACFS (16 STG^FICANT BITS). 

* R1=R11 ,U3.4-oi*V2,3,4, IF PKO R1 -Rl +V+ I V] , 1 __0 1 - 1 - T 1 3 . 
* 

* 01=X 14X X 
% 1 14X X 

* R1=SP3,SP1 ,RD,SPO X 15X 16X 8X HO 

* 01*V2,3,4 X 1SX 16X RX 8X 7X 90 
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LABL RFUJS SBUS FUMC SMFT STOR SPEC SKIP 



COMMENTS 



FRI, .TUN 4, 1976, 10:13 AM 



426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 



0472 
047 3 
0474 
0475 
0476 
0477 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0510 
0511 
0512 
0511 
0514 
0515 
0516 
0517 
0^20 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0530 
0531 
053? 
05 3 3 
0V34 



14771600100 
25772576776 
33764332276 
37557573425 
16551700000 
32537770777 
37772707777 
16774333274 
17537777777 
25327777157 
26537777777 
25772607777 
16774333274 
17537777777 
25607157150 
176O7777150 
3S537777777 
25772607777 
16774333274 
17537777777 
25627157151 
17627777151 
2^527157146 
2552777714b 
01557557777 
31306360535 
32337517275 
26776407777 
16617517770 
35776407777 
16637517771 
25536767153 
25537777153 
31306150524 
14547777766 



* 
* 
* 
ED10 



1 15X 16X 9X 8X 7X 90 



V TF ADD BACK 

ON COMPLETION DOME WTTH V4. RR,RC EMPTY, F2.0, p l MODIFIED, 



UBUS 
UBUS 
PBUS 



SP1 



SP1 



PD 
PD 



SP1 

PC 
PC 
X 
X 



EDI 2 SPO 

PD 

PC 
RA 
RA 



CTRI 

SP3 

RA 

imus 

RB 

UBUS 

SBUS 

SP3 

OPND 

SP3 

UBUS 

SPUS 

SP3 

SRUS 

SP2 

SP3 

URUS 

SBUS 

SP3 

SBUS 

S»3 

SP3 

SP1 

RC 

RB 

OPND 

URUS 

SP2 

UBUS 

SP3 

SP3 

RC 

CTRL 



POM 

REPN 

DVSB 

ADD 

POM 

ADD 

REPN 

VPAD 

ADD 

SUB 

ADD 

PEPN 

MPAD 

ADD 

CAD 

SUB 

ADD 

REPN 

VPAD 

ADD 

CAD 

SUB 

CAD 

SUB 

ADD 

>TMP 

A on 

INC 
ADO 
INC 
ADD 
TNC 
ADD 
JMP 
SUB 



SWAB 

81.1 

SP1 

LP 7, 

SRI 



SP1 



SP1 



ED 20 



EDI? 



01=X 

Rt=SP3,SPl ,RD, 
V=PA,SP2,0PND 



X 
X 

SP3 



SP3 
SPO 
S P 3 



5P3 
PD 
PD 
SP3 



SP3 

PC 

PC 

SP3 

FP3 

X 

SP1 

SPO 

PD 

PC 

SP3 

SP3 

SP1 

X 

15X ) 



SPO 



oootoo 

21 
TNCT CTRM 
CF2 NF2 
100000 



I*'CT 



:tf 



INCT 

CTF 
CTF 



INCT 

CTF 

CTF 
CTF 
CTF 



TMCT 



:tf 

'TF 



15X 
15X 



10 
CTRM 



20 
CTRM 

*"F] 



20 
CTRM 

NF1 

NF1 
UNC 

NCRY 
ZERO 
VCRY 
7ER0 
NCRY 
UNC 

MF1 



1.6X 
16X 



16X 
16X 



Ul (SLR) WITH LEADING 

SP1_Q1=U1.2/V1 

CF2 

X.RI1 

LOAD V4 FOR PI 3 



ONE 



P13=V4*01 

SP3.MSP13 

SPO. -LSP13 = P1>1 
LOAD V3 FOR v\? 



(Ft TF 0) 



P12=V3*01 +MSP13 

SP3.MSP12 

PD.U4-LSP12-fl IF MF1 ) 
=R13 (Fl TF "POS") 
LOAD V2 FOP PU 

P11=V2*01+^SP12 

SP3_vSPll 

RC>.U3-LSPll-ri IF NF1) 
=R12 (P"l IF "POS") 

SP3.R11-MSP1 1-<1. IF NF1) 
=R1 1 (Fl TF POS) 
X.01 , 

.IMP, SPI.R12 IP Rl POS 
P14.R14+V4, CRPY? 
YES; V3=V3+1, CRPY? 
NO; R13.R13+V3, CRPY? 
YES; V2=V2+1, CRRY? 
NOT R12.R12+V2, CRRY? 
YES; PI 1.R11+V1+1 ,F1 IF POS 
NO; P11-R11+V1, SF1 IF POS 
ADD BK AGAIN IF PI NFG, 

SP1.P12, 01.01-CTR 



7X 90 



CALC: 



02 = R1.1,1?/V1 
TF 02<2**16: 
TF 02>=2**16: 
TF 02>?**16 



CRRPTFD OUT 17 PLACES (17 SIGNIFICANT BITS). 
R?=R21 ,13,14-02*^2,3. 

P2=R21.13,14-2**16*V2,3; IF R2>=0 02,3,4. -1 

THEN P2.R2+V1 ,2,3-V2,3, 02.02-1, 



TF P.2> = 02,3,4. -1 
TF R2<0: P2.P2+V+[V1 , 



02.02-1 -m 



02 = RP 

R2=SP3,SP1,SP0 
(02<2**16+1)*V2,3 
V2,3 



(X) 15X 



X 










X 


15V 


16X 


7X 


90 


X 


15X 


16X 


7X 


9X 






16X 


7X 


9X 
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481 

482 

481 

484 

485 

486 

487 

488 

489 

490 

491 

492 

491 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

511 

514 

515 

516 

517 

518 

519 

520 

521 

522 

52 3 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

514 

535 



0535 
0536 
0537 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0550 
0551 
0552 
0553 
0554 
0S55 
0556 
0557 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 



0570 
0571 
0572 
0573 
0574 



25772577777 
33764332276 
37655123765 
37766360634 
26537577777 
32651700000 
37772607777 
16774331274 
17537777777 
25327777155 
35537777777 
25772607777 
16774333274 
17537777777 
25627157150 
17627777150 
25527157152 
25527777152 
01657557777 
31306360570 
26337517275 
35776407777 
16637517771 
25536767153 
25537777153 
313O6150561 
14647777772 



25772577437 
33764337276 
3/635123765 
37766360651 
35537577777 



* 

* 
* 
FD20 



VI ,2,3 TF ADO PK 

OM COMPLETION PO*E WITH 



1 15X. 16X 7X 9X 
V3, PC,RD,9P^D EMPTY, Fl,2 MODTFTED. 



SP3 

UBUS RA 
RRUS 



SP1 



SL1 
SRI 
EP2f 



SPO 



SP1 

RD 
RO 
RB 

RB 



EP2? S^O 

PC 
PA 
*A 



SP1 



PB 



PEPN 

T'VSB 

CPS 

»7MP 
OPNH ADD 
RB POM 

PEPN' 
HRUS ("PAD SP1 
SBUS ADD 
SP3 sun 
SP2 ADD 
SP3 REPN 
UPUS "PAD 
SBUF ADD 
SP1 CAD 
SRUS SUP 
SP3 CAD 
SP3 SUP 
SP1 ADD 
RC JMP 
OPMD ADD 
SP2 TNC 
HRUS A Dn 
SP3 TNC 

ADD 

JMP 

SUR 



£030 



PB 

FP3 
PB 



SP3 
PPG 
SP3 



FP3 

FC 
PC 
SP3 
SP3 

PP. 

SP1 

SPO 



21 

INCT CTRM 
POS 
UMC 
NF2 

100000 
2) 

TMCT CTRM 

CTF 

20 
IfJCT CTR'4 



CTF 

CTF 
CTF 
CTF 



"Fl 



NKl 



S°3 

RC 

CTRT. 



PC 
SP? 
SP3 
FP22 FPI 
PR 



NF1 
UMC 
INCT MCP5f 
7 FRO 

*JCRY 

n\'C 



CTF 
CTF 



*F1 



SP1-02=R11 ,12/Vl 
F2,RR(1 :15)_P21 , 

JMP TF Q2>=2**16 
LOAD V3 FOR P22, 

RB_R21 

P22=V3*02 

SP3-.VSP22 

SP0-R14-I.SP2? = P23 
T.nAD V2 FDR P21 \(F1="P0S") 

P21=V2*01>MSP22 

SP3-MSP21 

RC_R1 3-LSP21-H TF NF1 ) 
=R22 (Fl IF »pns") 

KP^_P21- M SP21-(1 IF »IF1) 
=P21 (Fl IF POS) 
RB_02, 

IMP, SP1_R22 IF R2 POS 
R23_P23+V3, CRRY? 
YES; V2=V2+1, CRPY? 
"10J R22-R22 + V2, CRRY? 
YES? R2t_P21+V1 +1 ,F1 IF POS 
"'0; P2l_P21+Vt, SF1 TF POS 
ADD r\K AGATN TF P2 MFG. 

SP1.P22, 02-02-CTR 



* 

* 
* 

* 

* 

* ..:■ 
* 
* 
* 

FP30 



ni ,2=X,R* 
P2=SP3,SP1 ,SP(' 
V=PA,SP2 



16X 15< 



15X 
15X 



I6X 

16X 



16X 



CAI.C: 03 = R21,22/V1 CARRIED nuT 17 PT..ACFS (17 SIGNIFICANT BITS). 
TF 03<2**1*: P^ = P31 ,23-0 : '*V2. 
TF 03>=2**16: R3=R31 , 23-2 ** 1 6*V2 ; TF R3>=0 
TF 03>2**16 THEN f>3-P 3 + V 1 , 2-V2 , 03_Q3-1, 
TF R3<0: P3-F3 + V+IV], 3-03- 1 - T 1 ] . 



03,4. -l; 

IF R3>=0 03, 4_ -1. 



D1 = RC 

P3=SP0,SP1 

03*V2 

VI ,2 IF ADD RK 



(X) 15X 



16X 
15X 
15X 



16X 
16V 
16X 



OM COMPLETION DO^F WTTH V2, SP2,SP3,RD EMPTY, Fl 
TF EXIT TO ED40 THFK' 0PNP_WEXP-256 , F2-0. 



MOD IF I ED. 



SP3 

MRUS RA 
RBUS 

SP2 



PEPN 
PVSB SL1 
CRS SP1 PC 
JMP ED36 
ADD SP3 



CF2 21 

TNCT CTRM 
POS 
UMC 

NF2 



CF2 

SP1_Q3=R21 ,22/Vl 

F2,RC(1 :15)-R31 , 

JMP TF Q3>=2**16 
LOAD V2 FOP P31 , 



PAGE 11 ADDRESS CONTENTS LAB! RBUS SRUS FUNC SPFT RTOR SPEC SKTP COMMENTS FPJ, TUN 4. 1976, 10:13 AM 

536 0575 31631700000 RC POM PC 100000 RC-R31 

537 0576 37772607437 REPN CF2 20 CF2 

53P 0577 16774333274 SP1 URUR MPAD SP1 TNCT CTRM P31=V2*03 

539 0600 17537777777 SRUS ADD RP3 SP3-.MSP31 

540 0601 25607507775 SPO SP3 SUB FD CRRY RD_R23-LSP31=R32 

541 0602 2^327367151 PC SP3 CAD SPO CTF UNC SP0.R31 -"SP31- r 1 1 
,542 0603 25327777151 RC SP3 SUR SPO CTF =R31 (F1 IF POR) 

543 0604 01637557777 SP1 ADD PC WF1 RC-Q3, 

544 0605 30306360613 RD JMP FP34 SP1 UNC JMP, SP1.P32 IF P3 POR 

545 0606 35617517270 EP32 RD SP2 ADD PD IKCT NCP.Y R32_R32+V2, CRPY? 

546 0607 33336767155 SPO RA INC SPO CTF UNC YES; R3 1-R3 1 +V1 +1 , Fl IF POS 

547 0610 33337777155 SPO RA ADD SPO CTF NO: R31-R31. +V1 . , SF1 IF POS 

548 0611 30306150606 RD JMP FP32 SP1 NF1 ADD RK AGATN IF R3 NEG, 

549 061? 14627777771 RC CTRL SUP PC SP1_P32, 03.P3-CTR 

550 0613 23177777761 ED34 SR SM ADD BUS RHS READ WFXP-256 FROM S* + 2 

551 * 

552 * 01 ,2,3=X,RR,RC 1*X 1 6X 15X X 

553 * R3=SP0,SP1 X 15X 16X 

554 * V=PA X 15X 

555 * 

55 6 * CAI.C: 04 = R31.3?/V1 CARPIFD OUT 17 PLACES (10 RF0UIPKD): 

557 * IF 04>=2**16 Then 04_ -1. 

55R * 

559 * 04=SP1 (X) 16X 

561 * ON COMPLETION PO*F WITH VI, SPO , SP? , SP 3 ,RA , RD EMPTY, F2 MODIFIED. 

562 * 

*** WARNING ( 3) *** RBUS ^AY RF FORCFD ON FOLLOWING MNF 
*** WARNIMC MR) *** UBUS ON RBUS OR SI.l MISSING FROM DVSB 

563 0614 33764112775 EP40 SPO RA DVSB SM MCRY CALC 04f0), 

564 0615 37766360647 JMP ED47 UNC JMP IF 04>=2**16 

565 0616 37772607765 RBUS REPN 20 RPO ( 1 : 1 5 ) , SP1 ( ) (*:C*Y.NF2) 

566 0617 33764332276 MOMS RA DVSB ST,1 INCT CTRM SP1_04=R 3 1 , 32/^1 

567 * - 

568 * F 3= -tfSGV-i OPND = ^FXP-?56, X , P R , PC , SP1 =0 , SR = 2 , OVFI. CLP. 

569 * 

570 * F1-WSGN. RD_Wb.XP-2, ,PB,SP3,SP1 ,RA.WlF-4*4, 

571 * RESTORE ORG X, OPND_W ABR ADDR, F3,CTR_0, SR_3; 

572 * FXTT TO MOP3" 10 FTMRH NORMALIZATION, RND AND PACK. 



573 



* 



574 0620 32537777777 ED50 RB ADD RP3 F»3-02 

575 0621 31317777217 RC ADD SP1 TNSR SP1-03, SR_3 

576 0622 01677747457 RP1 ADD PA CF1 F3 PA_04, 

577 0623 37777777477 ADD SF1 F1_WSGN 

578 0624 23177777761 SR SM ADO PUS RnS PEAD ORG X FROM SM+3 

579 0625 26611^37600 OPND ROM PD 037600 RI)_rfKXP-2 

580 0626 37772717166 X PFPN CF3 07 F3„0, 

581 0627 33640733276 UB"S RA OASR SP1 PB TNCT CTRM CTP-0, 

582 0630 17677777777 SRUS ADD PA RB ( 7 : I 5 ) , SP3 , 1 , RA_W1 F-4*4 

583 0631 32641600777 RB PQMN PR 000777 PB(0:6)_0 IN CASE 01(0)=1 

584 0632 23176777777 R" INC BUS ROS READ rt ABS ADDR FROM SM+1 

585 0633 26546360154 OPND JMP NOP3 X UNC RESTORE X; NORM , RND , PACK 

586 * 

597 * 02>=2**16: R2_P2-?**16*V2,3; IF R2> = 02,3,4-. -1; 

58P * IF Q2>2**!6 THFN R2-.R2 + V1 , 2 , 3-V2 , 3 , 02-02-1, 
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589 
590 
5<M 
592 
503 
594 
595 
596 
597 
5^8 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
61 R 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
63 3 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 



ADDRESS CONTENTS 


t.ABL 


PRTJS 


SB US 


FUNC 


: SHFT 


STHR SPEC 


SKIP 


COMMENTS FPI, 






* 


IF 


R2> = 


02, 


3,1. ■ 


-1 ; 


IF R2<0 RETURN 


TO ED22, 






* 


pb(o: 


I.SP1 


=02, 


F2,FB(0,1 


:15)=P21(0),"1 


" ,R2l(l:15), 






* 


rd, 


,SPO = 


R13,14, RA 


,SP2 


,ppnd= 


VI ,2,3. 








* 


FD2 2 


EXTT 


: RR_ 


.0 = 02 ! 


^no : 


2**16, 


SP3,PC, 


SP0-R2, Fl-0 (R2 wkg). 


0634 


26627567150 


ED2h 


PD 


OPND 


SUB 




PC 


CTF 


F2 


RC-R13-V3 (Fl IF "POS") 


0635 


32771700000 






PB 


ROM 






100000 


=R22; HBUS_R21 


0636 


35527157156 




UBUS 


SP2 


CAD 




SP3 


CTF 


NFl 


SP3-R21-V2-U IF NFl), 


0637 


35527777145 




P9US 


SP2 


SUB 




SP3 


CTF 




=R21 (Ft IF POS) 


0640 


37766140644 








JMP 


E027 






Ft 


02,3,4_ -1 IF P2 Pns 


0641 


016460005M 






SP1 


JMP 


ED 2 2 


PB 




ZERO 


RB-Q?, ADD BK IF 2**16 


0642 


25537507773 




RA 


SP3 


adh 




SP3 




CRPY 


R2-R2+V1 ,2,3-V2.3, PHS? 


0643 


37646360561 


$ 






JMP 


EP22 


PB 




UNC 


NO; O2_02-l , ADD BK 


0644 


37647377777 


FD27 






CAD 




PB 






flse 02- -1 


0645 


23177777761 


ED 3 7 


SR 


SM 


AOH 




PUS 


RPS 




READ WP'XP-'>56 FROM SM + 2 


0646 


37627377777 








CAD 




RC 






03. -1 


0647 


37307377777 


KP47 






CAD 




SP1 






04_ -1 


0650 


37766360620 


t 






JMP 


ED5 






UNC 





JUN 4, 1976, 10:13 AM 



0651 
0652 
0653 
0654 
0655 
0656 
0657 
0660 



0661 
0662 
0663 
0664 
066S 



37617567435 
31771700000 
35327777156 
3776614Q645 
01626000606 
33337S07775 
37626360606 
37766360645 



01 176777561 
01177777561 
26642360666 
26733377052 
01177777577 



0h66 31136777541 

0667 10177777437 

0670 37127377555 

0671 26177707437 

0672 26777417757 

0673 35773377650 

0674 24766360215 



* 

* 


03> = 


2**16: 


: P3_ 


,P3-2**16*V2; IF 


R3>=0 


03, 


4- -1; 


* 


IF 


03>?**16 


THEN i 


K3-P3+V1 ,2- 


-V2, 03, 


-03 


-1 , IF R3>=0 03, 4_ -1 ; 


* 


TF 


R3<0 


RETURN TO 


FD32, 










* 


RC(O) ,SP1: 


= 03, 


F2.PC(0,l:- 


I5)=R31(0)," 


1", 


R31(l:15), 


* 


PP0=U2 3 


, RA, 


SP?=V1 ,2. 










* 


El) 3 2 


EXIT: 


: RC- 


,0 = 03 I 


MOD 2> 


**16. 


SPO,PD, 


-R3 


, F1-0 (R3 "EC). 


EH 3 b 


SPO 




ADD 




pn 


CF2 


F2 




PD_R23=R32, CF?, 






RC 


POM 






100000 




UB0S_R31 




nans 


SP2 


SUB 
JMP 


FP37 


FPO 


CTF 


E1 




SPO_P31-V2 = R31 (Fl ]v POS) 
03, 4_ -1 IE R3 PPS 






SPt 


JMP 


KD3? 


PC 




ZERO 




RC_03, ADD BK TE 2**16 




SPf 


PA 


ADD 




?P0 




CRPY 




R3-R3+V1 ,?-V?, POS? 








JMP 


ED 3 2 


pr 




UNC 




WO; O3_03-l , ADD BK 


* 






JMP 


ET3 7 






UNC 




YES; 03, 4_ -1 


* 


niv i 


py zero: w 


_U, SET CCA, EXIT TO EFV1 


TO CHECK TPAPS. 


* 


SP1=I 


II ARS 


ADDR 


, PD = l 


[J?, Rr = W ABS ADDR 


, CTR=2, Ft=0, SR=2. 


* 


SPO-' 


W ABS 


ADDR 


. SR— i 


[), UBUS-STA. 






EPZP 


SR 


SP1 


INC 




PUS 


ROD 






READ U4 




sr 


SPt 


ADD 




PUS 


ROD 






READ U3 






OPND 


JSR 


En 72 


PB 




UNC 




WRTTF U4,3 AT RC+SP+1 ,RC+SR 




PB 


OPND 


Trip 




SP2 


CLSP 






SP2-U4 IOP U3, SP-0 


£ 




SP1 


ADD 




PUS 


ROD 






READ U1 


ED72 


SR 


RC 


TNC 




PSPO 


WHO 






SR=2t W4,3_RB,OP*D=U4,3 






ODWM 


ADD 




PUS 


DATA 






= 0: W2,l-RD.nPMD=U2,1 , 




SPO 




CAD 




PSPO 


wpd 






SPO-W ABS ADDR 


* 




OPND 


ADD 




PUS 


DATA 


R.SB 




RETURN IF SUPROUTINE 






OPND 


Ann 






CCA 


NZRO 




CCA ON Ul , IF 111=0 




PD 


SP2 


TOP 






CC7 






CCZ ON U2 IOP U3-,4 






ST A 


JMP 


ETV1 






UNC 




EFV1 WTTH UBUS-STA 
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ADDRESS 



CONTENTS 



LABF. RBUS SBUS FUNC SFFT STOR SPEC SKIP 



CO'-'MENTS 



FRI, JIJN 4, 1976, 10:13 AM 



644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

67? 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 



0701 
0702 
0703 
0704 
0^05 
0706 
0707 
0710 
0711 
071? 
0713 
0714 
0715 

0716 
0717 
0720 
0721 
07 22 
0723 
0724 
0725 
0726 
0727 
0730 
0731 
0732 
0733 
0734 
0735 
0736 
0737 
0740 

0741 
0742 
07 4 3 
0744 
0745 
0746 



22117777573 
23337777777 
34766777274 
01766777275 
00766020747 
22117777572 
26657777577 
34766777574 
01766777775 
22136777571 
26637777317 
30763127776 
00773357751 

011 16777577 
26737557777 
31767417750 
30767407751 
37777757777 
23176777757 
32177777437 
37136777575 
26622360741 
01 116777577 
26737777777 
23177777741 
33177777437 
37176777575 
26622360741 
01 176777577 
26737777777 
26622360741 
35777757757 

35763017776 
3S723707777 
31767547156 
35767777151 
00726140740 
37777757677 



* 

* 

* 
* 

* 

* 

&0701 
ECMP PA 



EMEG/FCMP 
FtfTER VTA JMP TABLE TN SEC! 7 *iTTH SR = 4 , 
RB = M DP PET, ADDR (FCVP), RA = V DB REl, ADDR. 
ENFG: EXIT TO FKFG WITH CONDITIONS LISTED AT ENEC 
ECMP: S_S-2, CK U.V ROUNDS, COMPARE U WITH V. 
PACK MAY EXIT THPOI'GH FCP5 , SETTING CCA ON S"2. 



(10701) 



SP1 

SPO 

PB 

SP1 
SPO 

PC 

IIBHS 
PC 



PC 



SPO 



ECP5 

* 

ECP7 



SR 



SPO 



URI'S 

UBUS 
RC 



DP 
S>* 

Dl. 

SP1 

C1R 

DB 

OPND 

DL 

SP1 

DB 

OPND 

RD 

CTR 

SP1 

OP NO 

RC 

RD 

SM 
RH 

OPND 
SP1 

OPNP 

PA 

OPND 

SP1 

OPNP 

OPND 

SP2 

SP2 

SP2 

RC 

S*2 

CIR 



ADD 

RDn 

RNDT 

PNDT 

JMP 

ADD 

ADD 

RNDT 

RNDT 

INC 

ADD 

XUP 

TOP 

TNC 
ADD 
SUB 
SUP 
ADD 
INC 
ADD 
TNC 
J SB 
TNC 
ADD 
ADD 
ADD 
TNC 
JSR 
TNC 
ADD 
JSP 
ADD 

XOR 
AND 
SUB 
SUB 
JMP 
ADD 



FNEC 



ECP7 



ECP7 



■ECF7 



PS^l 


ROD 




SPO 


INCT 
INCT 


EVEN 


PSPt 


POD 




PR 


POP 
POP 




BSPO 


ROD 




PC 


HBF 


POS 




CCA 


'•'EXT 


PSP1 


ROD 




SP? 




VF1 




CCA 


^ZRO 




CCA 


ZERO 
f*'EX f 


BUS 


WR5 




PUS 


DATA 




BSPO 


POD 




PC 




T'NC 


KSP1 


ROD 




SP2 






pus 


WPS 




FUS 


DATA 




PUS 


RHP 




PC 




n vr: 


PUS 


ROD 




5P2 






PC 




UMC 



CCA NEXT 



SP? 



ECP* SP2 



CTF 

CTF 

CCL 



NZRO 

PSB 

Fl 

Fl 

tvEXT 



READ VI, SP1_V APS ADDP 

SP0_SM 

V>=DL? CTR_2 

SM>=V? (= IN CASP PNEG) 

JMP IF FVEG 

READ Ul, SP1_U APS ADDR 

RB_V1 

S_S-2? RD=V1, RB,RA=TOS 

U>=l)L? S^>=U? 

READ V2, SP0_V2 ABS ADDR 

RC_U1, Fl-USGN 

U AMP V SAME SIG* ? 

MO; CCh ON U, CIP SO NO CCF 



READ U2 
SP2-V2; 

MO, CMP 
YES, C ; ' 1 P 

VAKE 
IN 
READ 
RC_U? 



!!,V POS? 

V WTTU U 
U WIT" V 
IV NZRO 

SURE ORC (S-3) 
«FM IS TRUE COPY 
V3 
, CMP U?,V2 (1C JMP) 



READ U3 

SP2.-V3 

MAKE SURF ORG (S-2) 

IN MEM IS TRUE COPY 
READ V4 

RC_U3, C'W U3.V3 (1C JMP) 
READ U4 
SP2-V4 

PC_'J4, CMP UA.V4 (1C JMP) 
CCF IF 0=V 

U(M)=V(N)? 

YES, RETURN WITH SP2_0 

CMP V WITH U IF M, V NEC, 

ELSE CUP U WITH V 

CCG TF OPl>OP2 (2C JMP) 

ELSE CCL 



EMEG 
ENTKP PROM ECMP WITH V BOUNDS CHECKED, 
SPt=V ABS ADDP, OPND=V1 , CTR=2, SR=4 WITH 4 TOS VALID. 
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ADDRESS 



CONTENTS 



LABI. PBUS SB-US FUNC SHFT STOR SPEC SKTP 



COMMENTS 



FRI, JfjN 4, 1976, 10:13 AM 



619 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
7t0 
711 
712 
713 
714 
715 
716 
717 
718 
719 
7 20 
721 
722 
723 
724 
725 
726 
727 
728 
7 29 
7 JO 
7U 
732 
7 33 
734 
7 35 
736 
737 
738 
7J9 
740 
741 
742 
743 
7 44 
7 45 
746 
747 
7 48 



0747 26726000753 

0750 01177777557 

0751 35171700000 

0752 00773357556 



07 5 3 
0754 
0755 
0756 
0757 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 



0770 
0771 
0772 
0773 
0774 
0775 
0776 



23136777757 
30177777437 
0U76777577 
37136777755 
31177777437 
14177777574 
26766010750 
37176777755 
32177777437 
14176777574 
26766010750 
26766010750 
37777757557 



23176777757 
10177777437 
237671177^2 
23476707237 
375316017^2 
22667777774 
37571601752 



0020 23177777761 

0021 37617777777 

0022 26546360231 



ENEG 
ENG2 



* 
F.NG4 



UBUS 



SPO 



SP1 



SPO 



SP1 



OPND 
SPt 
SP2 
CTF 

SK 

RD 
SP1 

RT 

CTRL 

OPND 

RR 

CTRL 
OPND 
OPND 



JMP 
ADD 
POM 
TOP 

INC 
ADO 
INC 
INC 
ADD 
ADD 
JMP 
TNC 
ADD 
TNC 
JMP 
JMP 
ADD 



ENG4 



Ff'G2 



KMC2 
E*'G2 



SP2 

BUS 
PUS 



BSPO 

PI'S 

PUS 

PSPO 

PUS 

PUS 

pup 
PUS 

pus 



ZERO 
WRD 

100000 
POPA NEXT 

WPS 

DATA 

ROD 

WRS 

DATA 

POD 



WPS 

DATA 

ROD 



POP A 



MZRO 



NZRf) 
MZPf) 
NEXT 



SP2-V1, JMP TF ZERO 

S_S-1 , COMPL SGN, 

CCA CCTR SO NO CCE) 

MAKE SURE (S-3) 

TN MEM IS TRUE COPY 
READ V? 
^AKE SURF CS-2) 

IN MEM IS TRUE CHPY 
READ V3 

JMP TF V2 MZRO 
MAKE SURE (S-l ) 

IN MFM IS TRUE COPY 
PE\D V4 

JMP TF V3 MZRO 
JMP IF V4 MZPO 
S.S-1 , CCE IF V=ZERO 



* 
* 

* 
* 
PS MM 



PSHw PUSHES OHr 
TF OVFL RESTORE 



TG'S PEG TNTO MH, CHECKING INCH 
V RET- ADDR, EXTT TO BND2 (STOyM; 



SM FOP 
SP1 = V 



STOV. 
A«S ADDR. 



SM 

onwN 

SM 
SM 



SP1 DP 



INC 
ADD 
CAD 
TNT 
PO--1 
SUR 
POM 



PUS 
P'JS 

SV 
SP3 

PA 
PAP 



WRS 
DATA 

DCSR 
RND2 

BMD2 



^.CPY 
PSR 



push rns RFG IMTO mew 
Z>=SMf 1? 

YES; I*'C S», OCSP. RET 
DELETE IF 16/17 REPLACED 
RESTORE V RET, ADDR 
EXIT TO RMD2 (STOV) 



8ND2 
TRPO 



* 

% 
* 

* 
* 
* 
* 

* 

* 

* 

* 

&0020 

ZAN3 SR 



1752 
3134 



PSHM PATCH: REOUTRFS REBURf" 
RESTORE V PEL ADDR IF STOV; 



OF 16/17 0-7. 
-IT. TF SFC 16/17 



REPLACED 



OF 16/17 0-7. 

JMPS CHANGED TO ZAN3; 



RESTORE X PATCM; RFOMPES PEBUP;M 

SR = 3, UVFL CLR: PM'L/DDTV ZAN1.2 
X„(SM+SR), HO.O, FXTT TO ZAN2. 

TF SEC 16/17 REPLACED DVUL/DDIV JMP TO NEW ZAM1 PRECEDING 7"AN2 
WITH RD = (EG. SFCOWD D^IIL Jvp jmps TO DOTV jup), F3=DC, 
WHERE ZA"1: RFAn X UNC , ZAM2: ... 1'MC, (J n :Jn JMP ZAN2 X UMCr -1!.., 



SM 



OPND 



ADO 
ADD 
JMP 



ZAN2 



PUS 

PD 

X 



ROS 



mc 



READ X FROM SM+3 

RD_0 

RESTORE X, JVP 
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ADDRESS CONTENTS 


LABL RRUS SBUS EUNC 


SHFT 


STOR 


SPEC SKIP 


749 














750 




* 3/9/76 


EIS-DEC 








751 




61024 










752 




♦SHIFT LEFT 1 DTG1T 








753 




♦ THIS SUBROUTINE REPOT PES THAT 


SPl AMD ; 


754 




♦ F2 = "ONLY USE FOUF 


> WORDS" 




755 




♦ IT ALSO 


USES Ft 








756 


1024 3376177O0O0 


1,10' 


RA POMN 






17OQ00 


757 


1025 16777407777 




UBUS ADD 






ZERO 


758 


1026 37777777517 




ADD 






SCRY 


759 


1027 33777772773 


!.1D PA 


RA ADD 


SL1 






760 


1030 16777772316 


IIBUS UBtlS ADD 


SI 1 




HBF 


761 


1031 31317777777 




RC ADD 




SPl. 




762 


1032 32537777777 




RB ADD 




SP3 




*** WARNING 


( 3) *** RBUS *"AY RE 


FORCED ON 


FOLLOWING LTNF 






*** WARNING 


f 9) ♦ *♦ UBUS ON SBUS 


1 OP ST,1 MTSSTMG FPOK OASI, 


(TASL 


Oiv /20) 


763 


1033 33760372770 


RD 


RA CART, 


ST 1 






*** WARNTNG 


( 3) ♦ *♦ RBUS MAY BE 


FORCED ON 


FOLLOWING LTNF 






764 


1034 16760372777 




UBUS OASI, 


ST 1 






*** WARNTNG 


C 3) ♦ *♦ RBUS MAY BE 


FORCED ON 


FOLLOWS G LTL'F 






765 


1035 16760372777 




UBUS OASL 


ST 1 






*** WARNING 


f 3) **♦ RBUS WAY BK 


FORCED ON 


FOLLOWING LTNF. 






766 


1036 16660372337 




UBUS OASL 


ST 1 


PA 


FHB 


767 


1037 37617777777 




ADD 




PD 




768 


1040 25657577777 




SP3 ADD 




FB 


NF2 


769 


1041 01637707777 




SPl A Dn 




PC 


PSB 


770 


104? 01637777777 




SPl ADD 




PC 




771 


1043 37775372760 


PL 


CRS 


ST 1 






772 


1044 16775372777 




OHUS ORS 


ST 1 






773 


1045 16775372777 




UBUS CPS 


ST 1 






774 


1046 16775372317 




UBUS CRS 


ST 1 




HBF 


775 


1047 I676J600017 




UBUS PO^' 






000017 


776 


in«S0 30517777776 


DBMS RO ADD 




PD 




777 


1051 37437777760 


PI, 


ADD 




C 




778 


1052 21237777777 




ADD 




FL 




779 


1053 22317777777 




DR ADD 




SPl 




780 


1054 34537777777 




DL ADD 




SP3 




*** WARNING 


f 3) ♦ *♦ RBUS may BE! 


FORCED ON 


FOLLOWING LIN* 7 






*** WARNING 


( 9) ♦ *♦ UBUS ON SRUS OR SM MISSING FP0^ 


OASL 


(TASL 


0" /20) 


781 


1055 21760372760 


PL 


OASL 


SI.l 






*** WARNING 


( 3) *** RBUS P AY BE 


FORCED ON 


FOLLOWING LTNF 






782 


1056 16760372777 




UBUS OASL 


ST 1 






*** WARNTNG 


f 3) ♦ ♦* RBUS VAY BE 


FORCED ON 


FOLLOWING LTNF 






783 


1057 16760372777 




UBUS OASL 


ST 1 






*♦* WARNTNG 


f 3) *** RBUS MAY BE 


FORCED ON 


FOLLOW It'G LTNF 






784 


1060 16220372337 




UBUS OASL 


SL1 


PL 


FHB 


785 


1061 37437777777 




ADD 









786 


1062 25717777777 




SP3 ADD 




DL 




787 


1063 01457707777 




SPl ADD 




DB 


RSB 



CO^MFNTS FRI. JUN 4, 1976, 10:13 AM 



SP3 HE FREF 



'''ILL ANY DIGITS BE LOST? 

IF SO, THEN SET CARRY 
Fl _ %O04000 AND RA 



HIGH BIT _ FKBTT 4 OF ORIG 
RBUS HAS LSW 

RETURN IF F2( SHORT) 



Fl _ BIT 4 OF PL 

"BUS _ PL.(0:3)&CST(4) 

CORRFCTED RO 

INTERCHANGE PL AND Q 



RB"S IS LSW 



PAGF 16 ADDRESS CONTENTS LABI, RBUS SBUS FUNC SHFT PTOR SPEC SKIP COMMENTS FPT. JUN 4, 1^76, 10:13 AM 

7R8 

789 *SHIFT RIGHT 1 DIGIT 

790 *THIS SUBROUTINE USFS SP1,SP3 

791 1064 31317777777 RID RC ADD SPl 

792 106S 32537777777 RR ADD SP3 
*** WARNING C 4) *** SBUS MAY BE FORCED CM FOLLOWING L7NF 

*** WARNING (10) *** UBUS n«| RBUS OR SPl MTSSTNG FPOM OASR (TASR ON /20) 

30760773773 PA RD OASR SP1 

SBUS "AY BE FORCED ON FOLLOWING LTNF 
3776077 3776 UBUS OASR SPl 

SBUS "AY BE FORCED ON FOLLOWING LTNF 
37760773776 MRUS OASR SP1 

SBUS MAY BE FORCED ON FOLT.OWTNG LTNF 
37660773776 UBUS OASP SPl PA 

37617777777 ADD FD SBUS HAS LSW 

30537774777 RD ADD RP7. SP3 SP3 - ORTG RD AND %377 

25657777777 SP3 ADD PR 

33661607777 RA ROMN PA 007777 "ASK 4 MSB 

01637577777 SPl ADD PC *F2 

37777707777 ADD RSB RETURN IF F2 (SHORT) 

22317777777 DP ADD SP1 

34537777777 DL ADD SP3 

25777772777 SP3 ADD SL1 SL1 

16777772776 MRUS URUS ADD SI 1 SL2 

16437775776 URUS UBUS ADD RT 7 O SL1,SL8 ?ORIG RD&SL1? 

SBUS MAY PE FORCED ON FOLLOWING LTNF 

URUS ON RBUS OR SRI MISSING FRO^ OASR {TASR 0" /20) 
21760773760 PL OASR SP1 

SBUS MAY BE FORCED l"N FOLLOWING LINK 
37760773776 UBUS OASP SPl 

SBUS MAY BE FORCED ON FOLLOWING LTNF 
37760773776 

SBUS MAY BF FHRC 
37220773776 

37437777777 ADD SRHS MAS LSw 

21537777777 ADD SP3 SP3 _ (4 MSB OF FINAL PL) 

25717777777 
01457777777 
37777777760 
16761607777 
25237707776 



793 




1066 


*** WARNING 


( 


4) *** 


794 




1067 


*** WARNING 


( 


4) *** 


795 




1070 


*** WARNING 


( 


4) *** 


796 




1071 


797 




1072 


798 




107 3 


799 




1074 


800 




1075 


801 




1076 


802 




1077 


803 




1100 


804 




1101 


805 




1102 


806 




1103 


807 




1104 


*** WARNING 


( 


4) *** 


*** WARNING 


no) *** 


808 




1 10S 


*** WARNING 


( 


4) *** 


809 




1106 


*** WARNING 


r 


4) *** 


810 




1107 


*** WARNING 


( 


4) *** 


811 




1110 


812 




1111 


813 




1112 


814 




1113 


815 




111* 


816 




1115 


817 




1116 


818 




1117 



UR"S 


CASF 


SPJ 






ON FOLLOW 


I*G LU'F 






UBUS 


OASP 
ADD 


SRI 


PL 








ADD 




SP3 




SP'J 


ADD 




DL 




SPl 


ADD 




np 




PL 


ADD 








UBUS 


PO M N 






007777 


UBUS SP3 


ADD 




PT. 


RSP 



POMN 




7760 7FRO 


ADD 




SCRY 


ADD 


SP3 




ADD 


SP1 





PAGE 17 ADDRESS CONTENTS LABL PBUS SBUS FUWC S"FT STOR SPEC SKIP COMMENTS FRT, JUN 4, 1976, 10:13 AM 

819 

820 *THTS SUBROUTINE SHTFTS LFFT BY 3 DIGITS 

821 *TT USES SP1 AND SP3 

822 *REG 0000 O000 0111 1111 1112 2222 7222 2333 

823 *PFF 1234 S67H 9012 3456 7890 1234 5678 9012 

824 * 

825 *SR1 XOOO 0000 0011 1111 1111 2222 222? 2213 

826 *SR1 X123 4567 8901 2345 6789 0123 4567 8901 

827 * 

828 *SL3 0000 noil 1111 1111 2222 2222 22*3 3XXX 

829 *SL3 4567 8901 2345 67* 9 0123 4567 8901 2XXX 

830 * 

831 1120 33761407760 T,3D ' RA POMN 7760 7FR0 WTLL AMY DIGITS «E LOST? 

832 1121 37777777517 ADD SCRY IF SO, THEM SET CARRY 

833 1122 32537777777 L3D RB 

834 1123 31317777777 RC 
*** WARNING ( 4) *** SBUS MAY RE FORCED ON FOLL OWING I..TNF 
*** WARNING CIO) *** URUS ON RBUS OR SRI MISSING FROM CASP (TASP ON /20) 

835 1124 30760773773 RA RD OASP SP1 
*** WARNING ( \) *** SBUS W AY BE FORCED ON FOLLOWING MNF 

836 1125 37760773776 UBUS OASR SF1 
*** WARMING ( 4) *** SBUS MAY BE FORCED ON FOLLOWING LTNF 

837 1126 37760773776 UB"S OASR SP1 
*** WARNING f 4) *** SBUS MAY BE FORCED ON FOLLOWING LTNF 

838 1127 37760773776 UBUS OASR SP1 

839 1130 37637777777 ADD PC 

840 1131 01657777777 -■ SP1 ADD PB 

841 1132 25677777777 SP3 Am PA 

842 1133 30777772770 RO RD ADD ST 1 SHTFT BY 2 

843 1134 16777575777 URUS ADD PI 7. NF2 SHIFT P Y 8 

844 1135 16617702776 MRUS URUS ADO ST 1 FD FSB SHIFT BY 2 IF RETURN, ELSE 1 

845 1136 16617772777 UP US ADD SL1 PD SHIFT «Y 1 

846 1137 3453777777,7 01, ADO ?P3 

847 1140 22317777777 OB ADO SP1 
*♦* WARNING f 4) *** SBUS MAY BE FORCED ON FOLLOWING LTNF 
*** WARNING flO) *** UBUS ON RBUS OR SP] MISSING FROM OASP (TASR ON /20) 

848 1141 21760773760 PL OASR SR1 
*** WARNING ( 4) *** SBUS MAY BE FORCED on FOLLOWING LTNF 

849 '1142 3776077 3776 UBl'S OASP S"1 
*** WARNING f 4) *** SBUS MAY BE FORCED ON FOLLOWING LTNF 

850 1143 37760773776 UBUS OASP SP1 
*** WARNING ( 4) *** SBUS MAY BE FORCED ON FOLLOWING LTNF 

851 1144 37700773776 

852 1145 37457777777 

853 1146 25237777777 

854 1147 01717777777 

855 1150 34761607777 

856 1151 30617777776 

857 1152 21777775777 

858 1153 16777772776 

859 U54 16437702776 



UBUS 


SP3 
SP1 


OASP 
ADD 
ADD 
ADD 


SP1 


DL 
DB 

PL. 
PL 




DL _ MSW TFMPOR 

DB _ LSW 




DL 


POMN 






007777 


MSW AND £007777 


UBUS 


RD 


ADD 




PD 




FIX RD 







ADD 


RLZ 






SHIFT BY 8 


UBUS 


UBUS 


ADD 


51 1 






SHTFT BY 2 


UBUS 


UBUS 


ADD 


ST.J 





PSP 


SHIFT BY 2 



PAGE 1« "ADDRESS CONTENTS LABI, RBUS SBUS FUMC SHFT STOR SPEC SKTP COMMFNTS FPI. JUN 4, 1976, 10:13 AM 

860 

861 *THTS SUBROUTINE SHTFT5 PTGHT RY 3 DTCITS 

862 *TT USES SP1.SP3.F1 

863 *PEG 0000 oOOO 0111 1111 It 12 9222 2222 2333 

864 *PFF 1234 5678 9012 3456 7P90 1234 5*78 RQ12 

865 * 

866 *SL1. 0000 nono 11 H 1111 1122 2222 2222 333X 

867 *SL1 2345 6789 0123 4567 8901 2345 6789 012X 

868 * 

869 *SR3 XXXO 0000 0000 1111 1111 1122 2222 2222 

870 *SR3 XYX1 2345 6789 0123 4567 8901 2345 6789 

871 * 

872 1155 32537777777 R3D RB ADD SP3 

873 1156 31317777777 RO ADD RPt 

874 1157 33775372777 RA CRS SL1 CIRCULAR SPIFT I.FFT 4 

875 1160 16775372777 UIUIS fPS ST 1 

876 1161 16775372777 UBUS CRS ST.l 

877 1162 16775372317 UPUS CRS ST 1 HBF F1 GETS RA.(4:1) 

878 - 1163 16661600017 UBUS PO»'N PA 000017 RA _ RA.(0:4) 
*** WARNING f 3) *** RRUS "AY RE FORCED ON FOLLOWING LTNF 

*** WARNING f 9) *** UBUS ON SP-US OR SL1 MISSING FRO" OASL (TASL ON /20) 

879 1164 33760372770 RO RA OAST. SL1 
*** WARNING f 3) *** RRUS N'AY HE FORCED ON FOLLOWING LT NF 

8R0 1165 16760372777 UBUS OASL SL1 

*** WARNING f 31 *** RRUS MAY RE FORCED ON FOLLOWING LTNF 

881 1166 16760372777 UPUS OASL ST.l 

*** WARNING f 3) *** RRUS MAY RE FORCED ON FOLLOWING LTNF 

8R2 1167 16640372337 UBHS OASL ST 1 PP FHR 

883 1170 37317777777 ADD SP1 SAVE LSW IM SP1 

8«4 1171 01617S77777 SP1 ADD PD NF2 

8R5 1172 25637707777 ■.. SP3 ADD PC RSR RETURN IF FpfSMOPTl 

8R6 1173 25637777777 SP3 ADD PC 

887 1174 34537777777 UL ADD SP3 

888 1176 37775372760 PL CRS ST 1 CIRCULAR SPTFT LEFT 4 

889 - 1176 16775372777 URNS CHS ST.l 

890 1177 16776372777 UBUS CPS ST.) 

891 1200 16775372317 UBUS CRS ST 1 HBF Fl GETS PL. (4:1) 

892 1201 16701600017 MRUS PfJ"N DL 000017 dl. _ PL. (0:4) 
PP3 1202 22317777777 DB ADO PP1 

894 1203 34237777774 SP1 OL ADD PL FINAL PL.. PL&SR12 + RD&SL4 

895 1204 37437777760 PL ADD PUT PL T« AN SRUS-PEG 

896 1205 21777777777 ADD PUT ON UBUS 
*** WARNING ( 3) *** RBUS MAY RE FORCED f)N FOLLOWING LTNF 

*** WARNING ( 9) *** UBUS ON SRUS OR SI,1 MISSING FROM QAST (TASL ON /20) 

897 1206 21760372776 URNS OASL ST1 
*** WARNING ( 3) *** RRUS P-AY RE FORCED ON FOLLOWING LTNF 

898 1207 16760372777 UBUS OASL ST.l 
*** WARNING ( 3) *** RRUS N'AY RE FORCED ON FOLLOWING LTNF 

899 1210 16760372777 UR»»S OASL ST.l 
*** WARNING ( 3) *** RRUS MAY BE FORCED HN FOLLOWING LINF 

900 1211 16700372337 UBUS OASL ST 1 DI, FHR 

901 1212 37777777777 ADD THROW AWAY LSW 



902 1213 01437777777 

903 1214 25457707777 SP3 ADD DB PSB 



UBUS 


OASL 
ADD 


ST 1 


ni, 


SP1 


ADD 







SP3 


ADD 




DB 



PAGE 19 



ADDRESS 



CONTFNTS 



LARL RBUS SRUS FUMC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, JUU , 4, 1976, 10:13 AM 



904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
9?0 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 



♦THIS SUBROHTINF SHIFTS LFFT 2 DIGITS 







♦ ORTG OO I 


DO 00 


00 0< 


1 11 


11 


11 














♦PRIG 12 : 


34 56 


78 90 12 


34 


56 














*SL2 


00 < 


10 00 


00 H 


I 1 1 


11 


IX 














*SIj2 


23 - 


*5 67 


89 01 


1 93 


45 


6X 










1215 


33761407400 


L2D* 




RA 


FOMN 








7400 ZERO 


WILL AM 


Y 


DTGITS BE LOST? 


1216 


37777777517 








ADD 








SCRY 


IF SO 


> 


THEN SET CARRY 


1217 


33777774777 


1. 20 




RA 


ADD 


RPZ 








(0,2) 






1220 


32773371776 




UBUS 


RB 


IOP 


LT 7. 








(0,2) + 




(3,4) => (3,0) 


1221 


16677776765 




RBUS 


UBUS 


ADD 


SWAP 


RA 






(3,0) + 




(0,2) => (2,3) 


122? 


32777774777 






RB 


ADD 


RRZ 








(0,4) 






1223 


31773371776 




UBUS 


PC 


TOR 


r. r , z 








(0,4) + 




(5,6) => (5,0) 


1224 


1665777*765 




RBUS 


UBUS 


ADD 


S'<>AP 


PB 






(0,4) + 




(5,0) => (4,5) 


1725 


31777774777 






RC 


ADD 


RPZ 








(0,6) 






1226 


30773371776 




UBUS 


RD 


TOR 


T.T.Z 








(0,b) + 




(7,8) => (7,0) 


1227 


166375767*5 




RBUS 


UBUS 


ADD 


SWAB 


PC 




WF2 


(0,6) + 




(7,0) => (6,7) 


1230 


30617705777 






RD 


ADO 


RLZ 


PD 




RSB 


(8,0) 






1231 


30777774777 






RD 


ADD 


PPZ 








(0,8) 






1232' 


16773371760 




PL 


UBUS 


TOP 


LIZ 








(9,10) 


+ 


(0,8) => (9,0) 


1233 


17617776776 




UBUS 


SB us 


ADD 


SWAP 


RD 






(9,0) + 




(0,8) => (8,9) 


1234 


37777774760 




PL 


» ■ 


ADD 


RPZ 








(0,10) 






12 35 


34773371776 




UBUS 


DL 


TOR 


LIZ 








(0,10) 


+ 


(1 1 ,12) => (11,0) 


1236 


1623777b765 




RBUS 


UBUS 


ADD 


SWAB 


PL 






(0,10) 


t 


(11,0) => (10,11) 


1237 


34777774777 






DL 


ADD 


RRZ 








(0,17) 






I? 40 


22773371776 




UBUS 


DB 


IOR 


LIZ 








(0,17) 


+ 


(13,1.4) => (13,0) 


1241 


1671777*765 




RBUS 


UBUS 


ADD 


SWAT 


rt, 






(0,17) 


+ 


(13,0) => (12,13) 


1242 


22777774777 






OB 


ADO 


RPZ 








(0,14) 






124 3 


21773371776 




UBUS 





TOR 


LI Z 








(0,14) 


+ 


(15,16) => (15,0) 


1244 


16457776765 




RBUS 


UBUS 


ADD 


SWAH 


DB 






(0,14) 


+ 


(15,0) => (14,15) 


1245 


21437705777 









ADD 


RLZ 







RSR 









PAGF 20 



ADDRESS 



COMTFNTS 



LA PL RBUS SBUS FUMf SHFT STOR SPFC SKIP 



COMMFMTS 



FPI. JUN 4, 1976, 10:13 AM 



936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
94 Q 

950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 



1246 
1247 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1.260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1270 
1271 
1272 
1273 
1274 



33677770777 
33777774777 
32773371776 
16657776765 
32777774777 
31773371776 
16637776765 
31777774777 
30773171776 
16617706765 
16617776777 
30777774777 
16773371760 
17237776776 
37777774760 
34773371776 
16717776765 
34777774777 
22773371776 
16457776765 
2277777A777 
21773371776 
164377067*5 



*THTS 


S"RRO!ITTNF SHTFTS ! 


■»TGHT 2 


D I G T TS 


*ORTG 


! 00 00 On 


no 01 


11 


I 1 11 




♦ ORTG 

* 

*SR2 


12 34 56 


7 8 9fi 


i 12 : 


3 4 56 




XO 00 00 


00 or 


»u 


11 11 




*RR2 


XI 23 45 


67 89 


• oi : 


2 3 45 




R2D 




RA 

RA 


ADP 
ADD 


LRZ 
P*Z 


PA 






UBUS 


RP 


I UP 


LT.Z 








RHUS 


IIBUS 
RB 


ADO 
ADD 


SWAP 
RPZ 


PR 






M8115 


RP 


TOR 


LTZ 








RBUS 


UBUS 
RC 


ADD 


SVAP 
RPZ 


PC 






ll^HS 


RD 


IOP 


IjI.Z 




MF2 




RHUS 


UP US 


ADP 


S v A P 


no 


RSB 






J BUS 


ADO 


SWAP 


FD 








RU 


ADP 


PPZ 








PL 


UBIJS 


TOP 


I.LZ 








IJRUS 


SBUS 


ADD 


SVBP 


PT. 






PL 




ADD 


PPZ 








UBUS 


or, 


TOR 


LT 7 








PflUS 


UBUS 
DL 


ADO 
ADD 


S U 'AP 
PPZ 


PL 






"BUS 


DP 


TOP 


T.T-7 








PB'TS 


UBUS 
DR 


A Dn 

Apn 


S'' ; A° 
PP7 


m. 






UBUS 





TOR 


LT.Z 







(0,1) 






(0,2) 






(0,2) + (3,4) 


= > 


(3,n) 


(3,0) + (0,2) 


= > 


(2,3) 


(0,4) 






(0,4) + (5,6) 


= > 


(5,0) 


(0,4) + (5,0) 


= > 


(4,5) 


(0,61 






(0,6) + (7,8) 


= > 


(7,0) 


(0,6) + (7,0) 


= > 


(6,7) 


(0,8) 






(9,10) + (0,8) => (9,0) 


(9,0) + (0,8) 


= > 


(P,9) 


(0,10) 






(0,10) + (11, 


12) 


=> (11,0) 


(0,10) + (11,' 


0) : 


=> (10,11) 



(0, 
(0 



12) 
12) 



(0,1?) 
(0,14) 
(0,14) 



(13 
(13 



14) => (1 3,0) 
0) r> (12,13) 



+ (15,16) => (15,0) 



RBM5 IHUJS ADD Si> AP C 



PSB 



(0,14) + (15,0) => (14,15) 



PAGE 21 ADDRESS CONTENTS LARli PBUS SRHS FUNC SHFT STOR SPFC SKTP COMMENTS FRT . JUN 4, 1976, 10:13 AM 

966 

967 1775 12337777537 D W PY 

968 1276 33317777777 

969 1277 33537777777 

970 1300 37772607777 

971 1301 16774333271 PC 

972 130? 17657777777 

973 1303 25677777777 

974 1304 37537777775 SPO 

975 1305 32772607777 

976 1306 16774333271 PC 

977 1307 17637777777 

978 1310 01537777777 

979 mi 25772607777 SP3 RFPN 20 ADD TM LSW FROM PRFV MULT 



RB 


ADD 




SPO 


CC RY 




RA 


ADD 




SP1 






RA 


ADD 
RFPN 




SP3 




20 


URUS 


MpAD 


SRI 




TWCT 


C TRM 


SBUS 


ADD 




PB 






SF3 


ADD 
ADD 




PA 
SP3 






pn 


PFPN 








20 


URUS 


MPAD 


SP1 




IT'CT 


CTRM 


SBUS 


ADD 




PC 






SP1 


ADD 




SP3 






SP3 


RFPN 








20 


URUS 


MPAD 


SP1 




TNCT 


CTRM 


SBUS 


ADD 




SP1 






SP3 


ADD 
ADD 




PR 
SP3 






SP1 


PFPN 








20 


URUS 


MPAD 


SP1 




INCT 


CTRM 


s^us 


ADD 




PD 


CCA 




SP3 


ADD 




PC 




MCRY 


RD 


INC 




PD 


CCA 




URUS 


ADD 








NEC? 


RD 


IOR 






ccz 


ZEPO 




ADH 






SCRY 


NEXT 


RA 


TOR 






CCZ 


NEXT 



980 1312 16774333270 PD 

981 1313 17317777777 

982 1314 25657777777 

983 1315 37537777775 SPO 

984 1316 01772607777 

985 1317 16774333270 RD 

986 1320 17617777757 

987 1321 25637517771 PC 

988 1322 30616777757 RD INC PD CCA CCE,CCG,CCT, 

989 1323 16777537777 URUS ADD NEC? SKTP IF CCT, 

990 1324 30773007651 PC RD IOR CCZ ZEPO IF CCE,CCG 

991 -~ 1325 37777757517 ADn SCRY NEXT TF CCL OR CCC 

992 1326 33773357652 PB RA TOR CCZ NEXT <"CG OR CCE 



PAGE 22 


ADDRESS CONTENTS 


LABT, 


RBUS 


SBUS 


FUNC 


S»FT 


STOR 


SPEr 


SKIP 


COMMENTS FR 


993 
























994 






* THIS SUBROUTINE DFTFPV. 


I WES 


IF IT 


IS NECESSARY TO FRKE FOUR 


995 






* ADDITIONAL REGISTFRS (0 DL 1 


DB PL' 


) 




996 






* FRAP TS 


A SPECIAL 


ENTRY FOR 


ADDD/SUBD/CMPI) 




997 






* FPLG TS 


A" ENTRY 


I'D FPEF THFM UNCONDITIONALLY 


998 


1327 


33771537762 


FRAD 




RA 


PO M 






7762 


"EG 


LONG IF RLFN>13 


999 


1330 


37766171 335 








JMP 


KPT r 






»-'P2 


MD A-HALF-WORD 


1000 


1331 


25771527774 


FREF 




SP3 


FOM 






7774 


POS 


A-WDCNT > 3? 


1001 


1332 


14771537774 


FPFB 




CTRL 


POM 






7774 


NEG 


R-WDCNT > 3? 


1002 


133 3 


37777767437 








ADD 






CF2 


UNO 




100 3 


1334 


37777707417 








Ann 






SF2 


PSR 


ROTH OPERANDS <= 4WDS 


1004 


1335 


23771600005 


FPLG 




SM 


RDM 






000005 




1005 


t336 


16137777741 




SR 


URUS 


ADD 




PSPO 


WPS 




FIVAL SM+5 


1006 


1337 


37177777420 




PL 




ADD 




PUS 


DATA 






1007 


1340 


37136777755 




SPO 




TNC 




PSPO 


WPS 




+ 6 


1008 


1341 


34177777437 






ni, 


Ann 




PUS 


DATA 






1009 


1342 


37136777755 




SPO 




INC 




PSPO 


w«s 




+ 7 


1010 


1343 


22177777437 






DB 


ADn 




PUS 


DATA 






1011 


1344 


37J36777755 




SPO 




TNC 




PSPO 


WPS 




+ 8 


1012 


1345 


21 177707437 









ADO 




PUS 


DATA 


RSB 




1013 






*TF 


THERE 


IS A 


SPLIT STACK 








1014 






*IT 1 


RECALCULATES SP? AND 


5 PI 








*** WARNING 1 


r 2) *** RBR CONFLICTS 


WTTH 


PREFETCH ( 


DM TNSTR FN TRY 








*** WARNING 1 


: 1) *** RBP MAY CONFLICT W 


ITH PREVIOUS PA 


"K SELECTION 






1015 


1346 


03777777417 


SPl.T 




RBR 


ADD 






DP 






1016 


1347 


03767417616 




I! BUS 


RBR 


SUB 






S 


NZRO 


OB-BANK = S-PA**'K? 


1017 


1350 


22767507762 




7. 


DB 


sim 








CRRY 


Z > DB? 


1018 


1351 


22766361 355 






DP 


JMP 


SPT1 






nir 


M OR MQjSPLTT STACK 


1019 


1352 


34767517776 




URUS 


Dl, 


SUB 








NCRY 


OH > Dl, ? 


1070 


1353 


37777707777 








ADD 








RS^ 


YES -- RETURN 


1021 


1354 


35777777777 






SP2 


Ann 










UBUS_SP2 FOR SLOW PSR 


1022 


1355 


30777773777 


SPT1 




RD 


ADD 


sri 










1023 


1356 


22317777776 




MRUS 


OR 


ADT> 




SPI 






RECALULATE SPI 


1024 


1357 


37777773777 






RB 


ADO 


SP1 










1025 


1360 


27737707776 




UBUS 


DB 


ADU 




SP2 




PSR 


REPALULATE SP?. 


1026 






*THTS SUBROUTINE CPFATES 


TUP- 


NINES 


rOMPLFMENf 


1027 


1361 


37771714631 


9CMP 






ROW 






114631 


'gqq<j' 


1028 


1362 


33667777076 




UBUS 


RA 


SUB 




PA 


SF3 




SET F3 


1079 


1363 


37647777765 




RBUS 


RB 


SUB 




RR 








1030 


1364 


31627777765 




RRUS 


RC 


SUR 




PC 








1031 


1365 


30607577765 




RBUS 


PO 


SUB 




PD 




MF2 




1032 


1366 


37777707760 




PL 




ADD 








PSR 


EXIT IF F2 (SHORT) 


1033 


1367 


16767777777 






URUS 


SUM 












1034 


1370 


16231714631 






UBUS 


POM 




PL 


1 14631 




1035 


1371 


21427777765 




PBI'S 





SUB 




C 








1036 


1372 


34707777765 




RBUS 


Df. 


SUP 




PL 








1037 


1373 


22447707765 




RBUS 


DB 


SUP 




OB 




RSB 




1038 






♦ THTS SUBROUTINE PL'SHFS i 


ML FOUR STACK REGISTERS INTO CORF 


1039 






♦ IT i 


ULSO CLEARS OVERFT OV 


AND i 


5R 






1040 


1374 


23176777757 


PSHA 




SM 


TNC 




PVt^ 


WPS 




PUSH REG 


1041 


1375 


10177777437 






on WW 


ADD 




PUS 


DATA 






1042 


1376 


23476657237 






SM 


TNC 




SM 


DCSP 


SRL2 




1043 


1377 


37766361374 








,IMP 


PSRA 






UNC 




1044 


1400 


37777707637 








ADD 






CT.n 


RSB 





FRI. JUN 4, 1976, 10:13 AM 
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ADDRESS CONTENTS 




1045 








1046 








1047 








1048 








1049 








1050 








1051 


1401 


35177777577 




1052 


1402 


336750327 77 




1053 


1403 


16676777777 




1054 


1404 


36337557777 




1055 


1405 


3367160000? 




1056 








1057 


1406 


26163417635 




1058 


1407 


14777417777 




1059 


1410 


33326361421 




1060 


1411 


37747^77777 




1061 


1412 


35176777577 




1062 


1413 


35736777777 




1063 


1414 


33671777774 




1064 


1415 


14351417777 




1065 


1416 


33326361421 




1066 


1417 


26766001412 




1067 


1420 


33337777777 




1068 


1421 


26761770000 




1069 


1422 


16777407777 




1070 


1423 


37777707777 




1071 


1424 


37327007775 




1072 


1425 


26761407400 




1073 


1426 


37777707775 




1074 


1427 


37327377775 




1075 


1430 


26761410360 




1076 


1431 


37327307775 




1077 


1432 


37777707776 




1078 


1433 


01177777577 




1079 


1434 


31635032777 




1080 


14 35 


16636777777 




1081 


1436 


30777427777 




1082 


.1437 


31631600002 




1083 








1084 


1440 


2616341762? 




1085 


1441 


25521410007 




1086 


1442 


31326361421 




1087 


1443 


37247377777 




1088 


1444 


01116777577 




1089 


1445 


31631777774 




1090 


1446 


25531417777 




*** WARNING 


f 8) *** IPS LOAD NAN 


'E 


1091 


1447 


31326361421 




1092 


1450 


26766001444 




1093 


1451 


31326361421 





LABI, RBUS SHIJS FUNC SHFT STOR SPEC SKIP COMMENTS FRI , JUN 4, 19 76. 10:13 AM 



♦ THTS TS THE SUBROUTINE THAT SCANS 'A* AtfD *B' FOP SIGNIFICANT DIGITS 

♦THE ENTRY POTNTS APE DIFFERENT FOR 'A' AMD 'P' RUT THEY RETURN FROM 

*A COMMON SECTION OF COPE. THE MUMPER OF SIGNIFICANT DIGITS TS RETURNED 

*TN SPO 

*F1 SHOULD CONTAIN! THE T.SP OF RP UPON ENTRY 

SCNB SP? ADD PUS ROD READ MSW 

RESTORE PA-MSKP DID CRS SRI 
MAKE RA ODD TF IT'S MOT NOW 
Fl IS LSP OF RB;SPO."SWMASK 
PA - WHAT TT WOULD BE TE 

IT HAD 4 DIGITS IN MSW 
«SW AND vsw-MASK 
LAST WORD ? 
FOUND ONE;SPC _ PA 
MS'V = 0,*MSW-MASK _ -1 

SCB1 

UPDATE 8MSW 
UPDATE DTGTT CNT 
UPDATE WORD CNT70? 
LAST WHPD;CTPL IS 
TRY AGAIN TF OD\in = 
SET SPO TO DIGIT Cf'T 

SCAM 

FIRST niGTT MON-ZEPQ? 

YES 

DECR DTGTT CNT;TS TT 0? 

SECOND DIGIT NON-ZERO? 

YES 

DECR DTGTT CUT 

THTRH DIGIT NOM-ZEPO? 

NO 

YES 

SCNA SP1 ADD PUS ROD READ MSW 

RESTORE RC-MSKA HID SRI 
MAKE RC ODD IF IT ISN'T 

MAKE RC WHAT IT WOULD BE IF 

THE MSW .VFRF 4 DIGITS 
"SW 0? 

LAST WOPO?(ROMN FOR MPYD) 
FOUND IT; SPO _ RC 
*AKE MSW-MASK -1 

SCA1 SP1 INC PSP1 ROD UPDATE 0MSW 

UPDATE DIGIT C» 5 T 
UPDATE WORD PNT;0? 

IS OLD NAME BEFOPF PRECEDING PUSH, POP OR INCH 

LAST WORD 



SHOULD CONTAIN! THE T.SP OF 


RP UPON EN 




SP? 


ADD 




PUS 


ROD 




PA 


CPS 


ST.l 


PA 


ODD 




HP US 


INC 




PA 






PB 


ADD 




SPO 


MF1 




RA 


ROM 




FA 


00000? 


SPO 


OPND 


AMD 




PUS 


OPND NZRO 




CTRI, 


A DP 






NZRO 




RA 


JMP 
CAD 


SPA^ 


SPO 

PB 


UNC 




SP2 


IMC 




BUS 


ROD 




SP? 


INC 




SP2 






RA 


POM 




PA 


177774 




CTRL 


ROM 




PTPL 


77 7 7 NZRO 




RA 


JMP 


SCAN 


SPO 


WW 




OPMD 


JMP 


SPP1 




ZERO 




RA 


ADD 




SPO 




) 


opnd 


BO y N 






170000 




IJR1JS 


ADD 
ADD 






ZERO 
PSB 


SPO 




CAD 




PPO 


ZERO 




op;jp 


POVK 






7 400 ZERO 


SPO 




ADD 






RSH 


SPO 




CAD 




SPO 






OPND 


PO"N 






360 NZRO 


SPO 




CAD 




SPO 


PSB 


PBUS 




ADD 






RSH 




SP1 


ADD 




PUS 


ROD 




RC 


CPS 


ST 1 


PC 


ODD 




UP US 


INC 




PC 






RD 


ADD 






EVEN 




RC 


POM 




RC 


00000? 


z 


OPND 


AMD 




PUS 


OPND *'ZRO 




SP3 


HOMN 




SP3 


0007 MZPO 




BC. 


JMP 
CAD 


SPAN 


SPO 
7 


UNC 


I 


SP1 


INC 




PSP1 


ROD 




RC 


ROW 




PC 


177774 




SP3 


POM 




SP3 


777 7 KZRO 


">LD NAME BEFPPF 


PRECEDING 


PUSH, POP i 




RC 


JMP 


SPAN 


SPO 


MHC 




OPND 


JMP 


SPA1 




ZFPO 




RC 


JMP 


SPA" 1 


SPO 


UNC 



PAGE 24 . ADDRESS CONTENTS LABL RRUS SBUS FUMC RWFT STOP SPEC SKIP COMMENTS FPI, .ION 4, 1976, 10:13 AM 

1094 

1095 *THESF APE THF. TRAPS FOP THE ADDO FAMILY OF INSTRUCTIONS 

1096 1452 37531520017 TA17 POM SP3 0017 PQS 

1097 1453 37531520013 TXJ3 POM SP3 0013 POS SKTP PSHA 

1098 - 1454 37762361374 JSR PSHA UMC TUTS JSB 1VEPRIDFS AMY PREV 

1099 1455 377663614M 

1100 1456 37531520015 TA1S 

1101 1457 37531600013 TA13 

1102 1460 37762361465 JSP RSTA UNP RESTORE RRCISTFRS 

1103 1461 247777770S7 TAUT STA ADD CLSP INTERRUPT TRAPS FN A BLED? 

1104 1462 16777522616 UB'K' 

1105 1463 37571603134 

1106 1464 37766362220 





POM 




SP3 


0013 PflS 




J SB 


PSHA 




1VAC 




JMP 


TMJT 




MNC 




POM 




SP3 


0015 POS 




ROM 




SP3 


000013 




JSP 


RSTA 




II MP 


STA 


ADD 






CLSP 


UHUS 


ADD 


SM 




snv pns 




POM 




PAP 


rppo 




.IMP 


A POP 




IMC 



PAGE 25 ADDRESS CONTENTS LARL PBl'S SRUS FUMC SHFT STOR SPEC SKIP COMMENTS FP1, JUM 4, 1.976, 10:13 AM 

1107 

1'108 *-THTS SUBROUTINE PESTDRFS THE 3 OP 7 REGISTERS ERFED BY FPEE 

1109 1465 23776777777 PSTA S" TMC 

1110 1466 16136777777 UHHR THC PRPO ROS SM + 2 

1111 1467 16136777777 URUS TMC PSPO ROS SM + 3 

1112 1470 26557777777 OPND ADO X 

1113 1471 37136777775 SPO JNC RSPO ROS Sd+4 

1114 1472 267577777/7 OPND ADD PR 

1115 1473 37136577775 SPO TKC PSPO ROS *<F2 sm + 5 

1116 t474 26257707777 OPND ADD 7, PSH RETJPN TF SHORT 

1117 1475 16246 361500 UBUS JMP * + 3 7 UNC 

1118 1476 2333160O0O5 RSTD SM ROM SPO 000005 

1119 1477 16177777777 MRUS ARH PUS KOS SM + 5 

1120 1500 37136777775 SPf' TNr PSPO ROS SM+6 

1121 1501 26237777777 OPNn ADD PL 

1122 1502 37136777775 SPO TMC PRPO PC'S SM + 7 

1123 1503 26717777777 OPND ADO VI, 

1124 1504 37136777775 SPO TNC PSPO ROS . SM + 8 

1125 1505 26457777777 OPND ADD PR 

1126 1506 26437707777 OPNP ADD PSP 



PAGE 26 



ADDPESS CONTENTS 



LAB?, PBUS SRMS FU'JC SHFT STOP SPEC SKIP 



COMMENTS 



FPI, JU'I 4, 1976, 10:13 AM 



1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
114R 
1149 
1150 
1151 
1152 
14 53 
1 154 
1155 
1156 
1 157 
1158 
1159 
1160 
1 161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1 175 
1176 
1177 
1178 
1179 
1180 



1507 
1510 
1511 
1512 
1513 
1.514 
1515 
1516 
1517 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
15 30 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1550 
1551 
1552 
1553 
1554 
1555 



35137777576 
32763417066 
37777777177 
32767057677 
16777771777 
26663777776 
17643577452 
37777777477 
37127377575 
32761410017 
17777776777 
1676101^015 
03156767017 
37777777717 
37 351777774 
35731527777 
37766361541 
37127377575 
26777737277 
16206361576 
16677557777 
33677707057 
16237777777 
32717777477 
31457777777 
30426361525 
36663777773 
23771600003 
16177777777 
37772337277 
37217737277 
37617557777 
30617707057 
16437777777 
31457777777 
32717777777 
33237777777 
37637777777 
37657777777 



♦ THIS SUBROUTINE FETCHES THE 'B' OPF»ANP. 
♦UPON ENTRY IT EXPECTS: 

♦ SP2 - ivOPf) ADDRESS OE i'SW 

♦ HBUS _ /ifjRD COUNT f0-7) 

*E2 - "FETCH rWt,Y FOUR WPPDS" 

♦RB _ SIGN \*ISK 

♦PR _ MSW MASK 

♦X „ STGN MASK OF 'A ' 

♦ TT USES SP0.E1 ,CTpr,,FP2 (- AMP THEY APE FREE AT THE END ) 

♦ TT RETURNS: 

♦ FOUR OP EIGHT WORDS TN ( P A , RR , PC ,RP ) OP C RA , PR , P.C , RD , PL , PL , OR , Q ) 



*E3 _ "DON'T N'EEU TO SHIFT 'B' TO LTNE UP WTfM 
♦ABS _ INCREMENTED TF 'P-' IS NEGATIVE 



*A # " 



♦ THE 
FTCH 



SI CM 
IJRHS 

y 



"BUS 
RR 



SPO 



ETA' 
FTAC 



SPO 



ETON PA 



OF R 
SP2 

RB 

PR 

URUS 
OPND 
SKI'S 



RR 

SBUS 
MRUS 
RRR 



SP2 



np»jr 

MRUS 

URUS 

RA 

URUS 

RR 

RC 

RD 

PR 

SM 

URUS 



RD 

HBUS 

PC 

PR 

RA 



ts at so 

ADD 
A NO 
ADD 
CAl"> 

add 

A,>ID 

AND 

Apn 

CAD 

POMf, 

Ann 

PO'AX 

TNC 

ADD 

r-Ti A 

R(jm 

J 'V ° 

CAP 

ADD 

.IMP 

APn 

ADD 

ADD 

ADD 

ADD 

JMD 

AMD 

POM 

ADD 

PEPC 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 



SET TM 
PSFO 



IT.'/ 



SWA»- 



ETn- 



FTAT 



ETA 



PA 
PR 



PSPO 



SRR 

TTPL 
SP2 

PSPO 

r-f.LSH 

RA 

PA 

PL 

DL 

TR 

O 

PA 

PUS 

PUSH 

PD 

PD 



DP 

PI.. 

PL 

PC 

PR 



ST A 
POD 
SF3 
CF\3 
COL 



CE1 
SF1 
RfiD 
0017 



M7.PQ 
M-JC 



001 S 
ARS 

rcc 

177774 
7 777 POS 

"'■'C 



(CCL OR COG) 

SPO _ BLSW 
^ZBO DO SIGN MASKS AGREE? 

F3="DOM'T NEED TO SHTFT 'B' 
«TT6 PR _ 'FOEF* OR 'FEFO* 

HBUS WAS 'EOFF';vAKE 'EOOO' 

RA _ LSW 
V P2 PB _ STGM DIGIT 

SE1 TF "SHORT" (IK, F7) 

FETCH ? Ml) WORD 
N'ZRO IN POSTTTQM ' OOOX ' ? ' YES-QK 

M()-ROTATE(ALS,"l IF ALL 0) 

R-SIGM MEG? 

T^CR ARS-BA\'K-PEG TE NEG 



ROD 

rrc'T 



'LSR 



SF1 



c trm 
hmc 

MF1 
PSR 



000O03 
PC'S 
IMCT 
TWCT 



CLSR 



CTR-4 
CTPM 
NE1 
RSR 



CTRL 
DECR 
■ TiJMP 



- -4 
*td r;jT 

DOME TF 



VD GNT - 



JUMP 
THIS 



AGAIN UMLESS CTRM 
IS 5TM WD => TOS 

SPECIAL RETUP'J FOR MPYD 

4TM WD => PI, 

3RD WD => DLrDO'JF PL-0 

2ND WD r> PB 

..TUMP AHA IN 

LAST WORD EETCHEO 



AND MSWM 



S t 3 

KETCH PB 
SKIP NEXT 
ZERO REST 
ZERI.1 RD TF 
RESTORE RD 



LIME IF CTRM 
OF RA-RD 

NF1 

AND EXIT TF 



Fl 
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ADDRESS CONTENTS 



LABI PBUS SOUS FUMC SFFT STOR SPEC' SKIP 



COMMENTS 



FRI, JUN 4, 1976, 10:11 AM 



1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 



1556 37677707057 



ADD 



RA 



CLSR RSR 



WORDS 



FETCHFD 


F2 


KF2 


1 


28 


35 


2 


32 


39 


3 


36 


43 


4 


40 


47 


5 




55 


6 




59 


7 




63 


8 




*7 
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ADDRESS CONTFNTS 



LABL RBUS SBUS FUNC SPFT STOR SPEC SKIP 



COMMENTS 



FRT, JIJM 4, 1976, 10:13 AM 



1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

124 3 

1244 

1245 

1246 



1557 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1570 
1571 
1572 
157 3 
1574 
1575 
1576 
t577 
1600 
1601 
1602 
1*03 
1604 
1605 
1606 
1607 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1620 



3731 1777774 
01 137567577 
3731J777770 
37351777774 
25776417774 
37766361574 
35733377763 
01316737277 
37766361563 
37677777760 
34657777777 
22637777777 
21606361563 
3777777776? 
16762777763 
15733007776 
37777777462 
16723777763 
17767377777 
2676377777b 
35073377776 
25177777575 
37327367775 
35733377763 
01777447777 
37766361621 
37136777555 
37177777423 
01316737277 
37766361606 
37677777760 
34657777777 
22637777777 
21606361606 



*THTS SUBROUTINE STDRFS 1-8 RFGTSTEPS WTTM INFORMATION TN 
♦DECIMAL FORMAT AND USES THE NECESSARY MASKS TO PRESERVE 
♦UNUSED PARTS OF THF WOPDS. 

♦ IT ALSO SETS OVERFLOW ANL SETS THE PROPER SIGN INTO THE FIELD. 
♦UPON ENTRY IT EXPECTS: 

♦ SP1 - BMSW IN MEMORY 

♦ SP3 - WORD COUNT (0-7) 

♦ F? - "USE ONLY FOUR WORDS" 
*X - SIGN MASK 

♦ Z - MStf MASK 

♦ IT ALSO USES SP0,SP2 

*TF NFCFSSAPY, TT *TLL SET CCF AND MAKE THE STORED SIGN POSITIVE. IF 

♦ ZEPO (+ OR -) TS STORED TN THE AVAILABLE FIELD (TE, PVFRFLCM CAM ALSO 

♦ BE SFT IF *()M-STORFD DTG1TS ARE MOT ZERO). 

♦AT THE END, Fl = "NOW-STORED DIGITS ARE NON-ZERO" ( IE ,OVEPFL<"»W) 
♦Fl SHOULD BE CLEARED BFFTRF ENTRY UNLESS OVERFLOW MAS ALREADY 
♦BEEN DFTFCTEP. 

CALL (I.E., JSB STOR 



♦ SP? 

STOR 



SHOULD BE 
SP1 



STSf SP1 SP3 



MRFG 



PL 



STMS Z 



STRS 



MREG 
HBUS 
7 
MREG 

UBUS 
UBI'S 
SPO 
SPO 

MRFG 



SPO 

mrp:g 



PL 



SP2 
SP1 



DL 
DB 


UBUS 
SP2 

UBUS 

SRUS 

OPND 

SP2 

SP3 

SP2 
SPt 



SP1 



DL 
OR 




STMS 



sT-sr 



STsr 



CLEAREn 

POM 

ADD 

ROM 

POM 

INC 

vlMP 

TOR 

INC 

J MP 

ADD 

ADD 

ADO 

J MP 

ADD 

CAND 

I OR 

ALU) 

AN'^> 

TAD 

AND 

TOP 

ADD 

CAD 

TOP 

ADD 

J MP 

INC 
ADD 
INC 

JMp 

ADO 
ADD 
ADD 
JMP 



TN THE 
f PI 
PSPO 
SP1 
CTRL 



177774 

ROD F2 

177770 

17777" 

\?R0 
UNC 



SET 
SPO 
SP1 



SP2 
SP1 _ 



UNC) 
-4 IE 

_ «MSW?F r TCH 
_ -tf IF NE? 



F2 

MS* 



STS» ! 



STPS 



STPS 



KP? 
SP1 

PA 
FB 
PC 
RD 



SP? 



FP? 



MPEG 
PUS 
SPO 
SP2 



PSPO 

pus 

SP1 

PA 
PB 
PC 
PD 



TNCT 



CTRM 



UNC 



ZEPO 



.TUMP TO MSd PART 

ACCUM. LEADING *H>S [ N SP2 

BUMp MREG POTNTER 

"0 JUMP TO SCAN AGAI* 

YES, FILL ARRAY wTT" «EW 



»F1 



ROD 



w'RD 

DATA 

INCT 



UNC 

NSME 
UNC 



C rR'4 



UNC 



wos 



■TIJMP SCAN AGATV 
7. IS HSW *ASK 

UBUS IS M 3* ! AND NOT(MSW-MAS 
SP? _ TOTAL LEAD TNG DIGITS 
SOV TF LFADIMG DTGTTS <> 
SP2 _ MSW DIGITS Tn BE STOR 
UBUS _ NOT(MS^-MASK) 
KEEP PART OF MSW TN MEM 
•'ASKED AND MFRGEP MSW TO MR 
PREFETCH SIGN WORD 
SKIP NEXT LINE 1ST T1MF 
ACCUM. STORED DTGrTS TN SP2 

JUMP sigm IE SP1=%1 77777 



BUMP POINTER 

NO JUMP PEST AGAIN 

YES FILL ARRAY WITH NEW WDS 



RETURN TO REST AGAIN 
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1247 

1248 *THTS SECTION STOPF* THE SIGN WORD 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 



1621 


2331 1600003 


STSN 




SM 


FOM 




SP1 


000003 




1622 


16176777777 








unus 


TNC 




PUS 


ROS 


GET 7, 


1*23 


26537774777 








opnd 


ADD 


PPZ 


SP3 




IF '0F00' 


1624 


35777417777 








SP2 


ADH 






MZPO 


A^Y STORFD DIGITS <> 0? 


1625 


37777777737 










ADD 






CCK 




1626 


3773160O014 










POM 




SP? 


000014 


'O00C 


1627 


24761400400 








STA 


ROMf 






0400 ZERO 


CCT. ? 


1630 


37731600015 










POM 




SP? 


000015 


YES, 'OOOD' 


1631 


37167377774 






5P1 




CAD 




PUS 


ROS 


get X 


1632 


26257777777 








OPND 


ADO 




7 






1633 


37777427766 






y 




ADO 






EVEN 


•OFOO* ? 


1634 


37537767777 










ADD 




SP3 


HMC 


MO, CI. EAR SP3 IF XsOOOF 


1635 


35737776/77 








S&2 


ADD 


SWAP 


SP2 




YES, ROTATE SIGN INTO PT.ACF 


1636 


2561 3377770 






PD 


SP3 


I OR 




PD 




f(D OP PI) inR t,RW LLZ 


1637 


37136777555 






SPO 




INC 




P. SPO 


W-PD 




1640 


35173307430 


* 




PD 


SP2 


TOR 




PUS 


DATA PSB 


RD IOR SIGN 






* 
*' 


I.FADTMf: 


words F2 


vr? 












* 









58 


90 












* 






1 


S6 


PP 












* 






2 


54 


P6 












* 






3 


52 


P4 












* 






4' 




P2 












* 






5 




PO 












* 






6 




78 












* 






7 




76 









PAGF 30 



ADDRESS 



CONTENTS 



LApf, RBHS S«US FUMC SHFT STPR SPEC ''KIP 



CllMMFMTS 



FRI, JUN 4, 1976, 10: J 3 AM 



1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 



1641 


23311600007 


CVAP 


SM 


K)tf 




SPJ 


000007 


1642 


16767507762 


Z 


UBIJS 


SUM 








CRRY 


1643 


37571601752 






POM 




RAP 


B\P? 




1644 


23322361 374 




S'< 


JSP 


PSHA 


5P0 




U\'C 


1645 


33771507743 




RA 


Pf)M 






7743 


CRPY 


1646 


31777517625 


PBUS 


PC 


APP 






CLO 


MCRY 


1647 


37766363313 






J up 


TF17 






PNC 


1650 


33766003302 




RA 


JMP 


HP OP 






7 FRO 


1651 


31766003302 




RC 


JMP 


ppnr- 






ZERO 


165? 


37762362062 






JSP 


TKA* 






UHC 


165 3 


37767377773 


PA 




CAP 










1654 


33677667776 


UBPS 


RA 


AP^ 




RA 




N'PRV 


165* 


3776236134* 






JSP 


SPl T 






UtoC 


1656 


25177577574 


SP1 


SP3 


APP 




BUS 


ROD 


\'F2 


1657 


37777777077 






APT) 






SF3 




1660 


37762362041 






JSB 


CKH* 






UiJC 


1661 


24762131346 




STA 


JSB 


SPT.T 






*'EG 


1662 


37351777774 






POM 




CTPL 


177774 


166 3 


14646341667 




CTRL 


jyp 


CAD1 


PB 




F3 


1664 


267777747^7 




OP HP 


A OP 


RPZ 








1665 


16777772276 


yens 


UH US 


ADO 


SI 1 




if.c.r 




1666 


16317762276 


imus 


UBUS 


APP 


ST 1 


FP1 


TNCT 


>JC 


1667 


01 307777774 


CADI SPl 


S"l 


SU» 




SPl 






1670 


25737777465 


RBUS 


SP3 


APP 




SP? 


SFl 




1671 


3513777757? 


PB 


SP? 


A DP 




PSPO 


POO 




1672 


33667373337 




RA 


CAP 


SRI 


FA 


FWB 




1673 


0131 1 350000 




SPl 


PPM J 




5P1 


150000 


167 4 


31627567677 




RC 


SUP 




C C 


CCL 


F? 


1675 


37127367575 


RPO 




CAD 




PSPO 


POD 


1WC 


1676 


2*7777/5777 




OPND 


APP 


RT,Z 








1677 


18537770457 




i.mus 


ADO 


Lrz 


SPl 


CF1 




1700 


16511417603 




MMUP 


PP.'* 




CD } 


7 60 3 


NZRO 


1701 


37606361744 






JMP 


C»P7 


op 




Hi'JC 


1702 


37617777717 






A Or, 




PD 


CCG 




17 03 


01 3017 47777 




SPl 


POVN 




SPl 


147777 


1704 


25531410002 




SP3 


nnv 




. C F3 


00 0? 


MZRO 


1705 


37766361744 






i( m p 


CAD7 






"MC 


1706 


25531530050 




R»3 


POM 




5P3 


0050 


NFC 


1707 


37766363316 






JMP 


TF1 4 






!MC 


1710 


25531530011 




SP3 


prtM 




SP3 


0O11 


Jv'EG 


1711 


37766361725 






JMP 


CAD3 






UriC 


171? 


25531530011 




St>3 


pnv 




SP3 


0011 


KF.C, 


1713 


37766361727 






JMP 


CAP4 






U'JC 


1714 


25531530007 




SP3 


POM 




PP3 


0007 


KEG 


1715 


37766363 it 6 






JMP 


TFM 






UMC 


1716 


0131 1 370000 




SP1 


PrP'I 




5=P1 


170000 


1717 


2553153O012 




SP3 


POM 




. r P3 


00 12 


'■■>¥/; 


17 20 


37766361743 






JVP 


CAD* 






ii Mr 


1721 


25531400020 




SPl 


PflM 




SP3 


00?0 


ZERO 


1722 


37766363316 






JMP 


TP 14 






UiVC 


1723 


37537777477 


CAD2 




ADD 




FP3 


SKI 




1724 


377*6361744 






jmp 


CPD7 






MwC 


1725 


0131121OOO0 


CAD3 


SPl 


POM I 




SPl 


1 i 






SET SPl FOR CKA' 
STOV 

ra:scnt,rb:sad 
rc:tc'jt,rd:tao 



DOUBLE FOR CKBR 

SPLIT STACK? 

FETCH SIGM WORD OF 'A' 

F3 - F2 (IF. A FULL */OPD) 

KIX SP2 IF SPLTT STACK 

C'JTR _ -4. 

JMP TF SIGN 'A TS RT BYTE 

GAPBAGF BYTE 

RIGHT PYTE S.SL4 TO S D 1 

CLFAP SP1 

SP? _ GA-oIG* *ORD 

SP0_<3B-STGM-*0PD 

NEC ASCII C'JT TO RA 

NEGATIVE STG W 

"EG [DECIMAL CNT 

MF2M.EKT BYTE T'J SP3:GFT 1 

F2: RIGHT BY T E TO SPl 

BOTHrCLEAP 'BLAMK-IDDF' 

-%17S;SP3 l 'AS a'FP BYTF 

NEGATIVE ZERn 

POSITIVF SIGN 

%173 

POSITIVE ZFRn(%173) 

7655 
> =r 1 2 3 (AM) NOT *173&5H5 TP 
7666 

%U2 - *12? fSFT NRG & TMC) 
7 67 7 

?, 1 1 - %111 ( IS POS - I*'C) 
7 7 06 

%072 - %100 ARF ILLEGAL 
SET ABSOLUTE SIC* 
77?0 

%0*0 - %071 ARK 0-9COK NOW) 
%40?CTF YES, T"E V ABS 0) 
\'fl 

YKS, IF %40;K2 = BT,ANK«iOnE 
RETURN TO LOPP 
SET NEGATIVE STG^ 



PAGE 31 



ADDRESS COK'TFNTS 



LABL PBliS SRUS FUMC SHF^ STOR SPKC SKIP 



COv.Mf-.'MTS 



FPI, JiJM 4, 1976, 10:14 AM 



1331 
1332 
1333 



1726 37777777677 

1727 25536777777 
1730 37766361743 



CAD4 



ADD 
SP3 TNC SP3 
J MP CAD6 



CCL 



UNC 



GOTO LflQP 



PAGE 32 



ADDRESS 



CONTENTS 



LABI PBUS SRUS *'UNC SHFT STOR SPEC SKIP 



COMMENTS 



FPI. JUM 



1976, 10:14 AM 



1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 
*** WARNING 
*** WARNING 

1 3S8 
*** WARNING 
*** WARNING 

1 359 
*** WARNING 
*** WARNING 

1360 
*** WARNING 
*** WARNING 

1361 

1362 

1363 

1 364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 
*** WARNING 
*** WARNING 

1375 
*** WARNING 
*** WARNING 



17 31 
1732 
173 3 
1734 
1735 
1736 
1737 
1740 
1741 
1742 
1743 
4) *** 



33766121744 
26537560437 
17537764417 
37127377575 
25761010040 
37766361723 
37766143316 
25531537720 
16771537766 
37766363316 
2561 3377770 
SBUS MAY 



* 
# 


IN THE LOOP PORTION OF 


THIS 


INSTRUCTION 




* 


RA=SOHRrfP (ASCII) 


BYTE 


COUNT 






* 


RC=TAPGET (DECIMAL) DTGTT COUNT 






* 


RD=MON-ZERO COUMTFR 










* 


SPQ=ARS WRD O OF 


ASCIT 


SOURCE 






* 


SPlsTHAT WHICH TS 


STORED 








* 


SP2=ABS WRD a OF 


PCD TARGET 








* 


SP3=ASCri WORK WORD 










* 


Fl = 'BLANKMfjriE* 












* 


F2 = 'RIGHT BYTE' 












CAD5 RA JMP 


CAD7 






POS 


B RU'inilT? (SP3 SHOULD BE ) 




OPND ADD 


t °7 


SP3 


CF2 


F2 






SBUS ADD 


RP7 


SP3 


SF2 


UNO 


WAS "F? 




SPO CAD 




PSPO 


ROD 




WAS F2 




SP3 POMX 






0040 


NZRU 


= %40? 




JMP 


CAD? 






KHC 


YES 




JMP 


TF14 






Fl 


ILLEGAL TF EXPECTING BLANKS 




SP3 POM 




FP3 


7720 


MEG 


SP3 <= %60 ? 




UBIJS POM 






7766 


*-'EG 


(SP3 - %60) >= %1? ? 




JMP 


TE14 






U MC 


YES OR YES 


CAD6 RD SP3 TOR 




PD 








WE FORCED ON FOLLOWING T.TNF 










BUS OR 


SRI MISS IMG FROM 


OASP 


(TASR 


DM /20) 





(10) *** UBUS ON 

1744 37760773777 C*D7 OASR S»1 
(4) *** SBUS MAY RE FORCED ON FOLLOWING T INF 
(101' *** UBUS ON RBUS OR SRI MTSSI--IG FPO M OASR 

1745 37760773777 OASP SM 
( 4) *** SBUS '-'AY RE FORCED PM FOLLOWING I INF 
(10) *** UPUS ON RBUS OP SRI MISSING FPOM OASR 

1746 37760773277 OASP SM 
( 4) *** SBUS MAY RE FORCED 0;\J FOLLOWING I.W-* 
(10) *** UBUS ON RBUS OP SPl MISSING FPOV CASP 



(TASR 0^ /?oy 



(TASR 



UN /20) 
TNCT 



(TASR ON /20) 



1747 
1750 
1751 
"175 2 
1753 
1754 
1755 
1756 
1757 
1760 



37760773777 
37636537771 
37766361761 
33676737777 
37766361731 
35177777557 
01177777437 
35731777777 
37351777773 
37306361731 



PC 





OASR 


S«1 










INC 




PC 




NEC 




JMt> 


CADP 






UNC 


RA 


INT 




TA 




CTP* 




JMP 


C'D5 






UNC 


SP? 


ADD 




PUS 


WRD 




SPl 


ADD 




BUS 


DATA 




SP2 


PO" 




PP? 


177777 




POM 




CTPL 


177773 




JMP 


CAD5 


SPl 




UNC 



SHTE rp SP3:SP1 PTGHT 4 



TNCR " 4DTGTTS?" CMTR 



INC A CNT(S8US SHOULD HE 0) 
JMP TF LAST RCD DIGIT 
4 DIGITS PFOCESSFP?I M C BCNT 
NO, 4 DIGITS WOT PROCESSED 



CNTP _ -5 

CLEAR SPl SO SBUS IN QASR=0 



ODD 



* HERF FOP LAST ROD Wrpn 

1761 14766031766 CAD8 CTRL JMP *+5 
( 4) *** SBUS MAY BE FORCED ON FOLLOWING T,TNF 

(10) *** UBUS ON RBUS OR SRI MISSING FPO^ OASR (TASR ON /20) 

1762 37760773777 OASR SPJ 
( 4) *** SBUS way BE FORCED ON FOLLOWING LTNE 

(10) *** UBUS ON RBUS OR SR1 MISSTNG FPOM OASR (TASR ON /20) 



SHIFT IN A 



PAGE 33 ADDRFSS COWTFMTS LART RRUS SRUS FUNC SWFT STOP SPFX SKIP COMMENTS FPI, JUN 4, 1976, 10:14 AM 

1376 1763 37760773777 OASP" SRI 
*** WARNING ( 4) *** SBUS N'AY RE FORCED ON FOLLDWirG LTNF 

*** WARNING flO) *** UBUS ON RRUS HP SP1 MISSING FROM OASP (TASR OK /20") 

1377 1764 37760773277 OASF SRI TMCT 
*** WARNING ( 43 *** SPUS MAY BF FDRCFD DN FOLLOWING LTNF 

*** WARNING (10) *** URUS ON RRUS OH SRI MISSING FFO^ OASR (TASR 0* /20) 

1378 1765 37760773777 OASR SP1 

1379 1766 37766331773 JMP CAD* CTPM 4 DIGITS PROCESSFD? 

1380 1767 35177777577 SP2 ADO PUS POD MO,GFT LF.FT RYTF 

1381 1770 01317770777 SP1 ADD I.P7 SP1 

1382 1771 26777771777 UPMD ADO I.T-Z - 

1383 1772 01317777776 URUS SP1 ADD SP1 

1384 1773 30777417777 CAD« RP ADD NZRO ANY NO»I-ZE»»0 DIGITS 

1385 1774 37777777737 ADD CTK 

1386 1775 35177777557 SP2 ADD BUS WPD 

1387 1776 01177777437 SP1 ADD PUS DATA 

1388 1777 37766363302 JMP RPOr IINC 



PAGE 34 



ADDRESS CONTENTS 



LABI RRI'S SBI'S FUNC SHFT STOR SPEC SKIP 



COMMENTS 



FRI, .TIP 



4, 1976, 10:14 AM 



13P.9 

1390 

13<M 

1392 

1393 

1394 

1395 

13<?6 

1397 

1398 

1399 

1400 

1401 

1402 

140 3 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

14 23 

1424 

1425 

1426 

1427 

1428 



2023 
2024 
2025 
2026 
2027 
2030 
2031 
2032 
2033 
2034 
2035 
2036 



2037 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2050 
2051 
2052 
2053 
2054 



37777777077 
23337777537 
37777777766 
16541600037 
23311600007 
16767507762 
37571601752 
3377150^743 
31777517625 
37766361452 
33766002537 
31766002537 



01 177777757 
36177777437 
32777777377 
33777573377 
16776777377 
16357773777 
32777773 7 77 
22737777776 
34767517776 
35767507775 
35731700000 
31766777776 
14777777765 
16766707775 



&2023 

♦ 
















♦ THTS 


IS 


THE ENTRY 


POT NT 


FOR 


NST.-D AND SLD 




NSLD 






ADD 






SF3 




SLD 




SM 


ADD 




SPO 


CCRY 




SRLD 


X 




ADD 














URUS 


POKN 




X 


000037 


USE ONLY 5 LS8 


CKLw 




SM 


ROM 




SP1 


000007 


SPl„t8FINAL-SM + 3 




Z 


URUS 


SU« 






CRRY 










TOM 




PAP 


RND2 


FXTT TO STOV 






RA 


Pf)M 






7743 CRRY 


>2ri? 




PBHS 


RC 


ADD 






CT.n NCPY 


>2«? 








JMP 


TM7 




I'NC 


LENGTH TRAP 






RA 


J MP 


APZT 




7EP0 








PC 


JMP 


APZI 




ZERO 





♦ THIS SUBROUTINE DOFf, Brians CHECK U-G FOR OPERAJl) 8 

♦ IT USES SPO WHICH COMTM v S THE HIGHEST LEGAL ADDRESS IN THE STACK 

♦ IT RETURNS THE WORH ADDRESS OF THE MSW IK ,SP2 

♦ TT RFTURNS THE WOPD COUNT (0-71 IM )PND 

♦ IT SETS F2 IF THF STCN WDPD IS A FULL WOPD 



2055 37777577766 

2056 16771600002 

2057 t6l77777637 



C^BH 


SP1 


ADD 




PUS 


WPS 




fflSM+7 (FINAL SM+3) 




pp 


ADD 




PUS 


DAT* 






CKR' 


RP 


ADD 






LPF 




F2.LSR(RR) 




RA 


ADD 


SRI 




f.RF 


*'F? 


!IRUS_RYTF COUNT - 1 




HRIJS 


INC 






LRF 




TNCR URUS IF LSBfRR) = l 




URUS 


ADO 


SP1 


CTRL 






CTRL _ WORD COUNT -1 




RR 


f DO 


SP1 










URUS 


DR 


ADO 




SP2 






SP2-FIRST CllFSS FOR WORD 


'IHHS 


or, 


S U R 








NCRY 


MS 4 > DL ? 


SPO 


SP2 


SUP 








CRRY 


SM > a*"SW ? 




SP2 


ROM 




SP2 


loooon 


TOGGLE If NOT(PR<avsw<S.M) 


UQUS 


or, 


rndt 












RRl'S 


CTRL 


Ann 












SPO 
♦ 


URUS 


P-NP'J 








HSR 




* 

X 




ADD 








lvF2 






URUS 


DQM 






000002 


ADO 2 TO SHIFT IF R PT-JU 




URUS 


ADD 




PUS 


OPND 




STORE IN OPMD EEC 



PAGE 35 



ADDRESS 



contents 



LABI, PBUS SRUS FUNC SPFT > c TOR SPEC SKIP 



CQVMFMTS 



FRI, .111*1 4, 1976, 10:14 AM 



1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 



206O 
2061 
2062 
2063 
-2064 
2065 
2066 
2067 
2070 
2071 
2072 
207 3 
2074 
2075 
2076 
2077 



01176777757 
37177777422 
30777777377 
31777573377 
16776777377 
16537773777 
37167377754 
37177777426 
30777773777 
22317777776 
34767517776 
0t76750777b 
01 311700000 
34766777776 
25777777774 
16766707775 



2100 37757577766 

2101 26771777776 
210? 1M77667637 



2103 37762361346 

2104 23176777741 

2105 26177777437 

2106 37762361331 



*THTS SUBROUTINE CHECKS THE BOUNDS OF OPERAND A 

*TT ASSUMFS SPO CC^'TATNS THE HIGHEST LEGAL ADDRESS TM THE STACK 

♦ IT RFTIiRNS THE WORD PPPP.FSS IN SP1 

*TT RETURNS THE WORT CO! NT (0-7) IN SP3 



*TT SETS F2 IF 


THE ; 


CKAB 


SP1 


TNC 


7 




ADD 


CKA' 


RD 


ADD 




RC 


ADD 




UH-US 


TNC 




UBUS 


ADD 


SP1 




CAD 


X 




ADO 




Rn 


ADD 


HBUS 


DR 


ADD 


HBUS 


DT, 


SUP 


SPO 


SRI 


SUB 




SP1 


"OM 


UBUS 


DT, 


BNDT 


v SP1 


SP3 


ADD 


SPO 


MRUS 


BNDT 


* 






* 






X 




ADD 




OPNP 


POM 




UBUS 


ADD 


* 






* 




JSP 


SR 


SM 


INC 




npMP 


ADD 
JSP 



STff 



SP1 



SP.1 



pp 1 



WORD 


IS A F 


'UT.I. '■ 


PUS 


WPS 




PUS 


DATA 
LRF 






r.PF 


NF? 




LBF 




SP3 






PUS 


WRS 




P"S 


DATA 




SP1 




''CRY 

CRRY 


SP1 


100000 



WflPD 



SPI-T 



FPFR' 



PB 



PUS 



PUS 
PUS 



PSP 



wRS 

DATA 



'IMC 



UNC 



OSM+R (FINAL SM+4) 

F2_LSB(BYTE « ) 

BYTE COUNT -1 

I^CR IF PSP(PYTK a)=1 

SP* _ WORD COUNT - 1 

AS>-< + 6 (FTMAL SM+2) 



SP1 

GMSW > DL 
SM > Gir>SW 
TOGGLE IF 



FIRST 
? 



GUFSS AT WOtfD 3 



NOT(PB<<aMS/'<S*n 



NF2 


KEEP OPG X IM PR (NOW FREE) 


17777ft 


SHIFT -2 IF A PT-JUST. 


OPND h'PPV 





"AYBF FREE (PL,Df ,PB,0) 



PAGE 36 



ADDRESS 



CONTENTS 



LABL PSHS SBUS FUWC SRFT FTOR SPEC SKIP 



COMMENTS 



FRI. TU*' 4, 1976, 10:14 AM 



1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 



*THTS SUBROUTINE TAKES PC AND RR AND RETURNS THF SIGN MASK 
*AMD THF MSW "ASK ( IN X AMD 7. ) 



2107 


37251607777 


MSKA 






POM 




7 


007777 


2110 


31635123777 






Rr 


CRS 


SP1 


PC 


ros 


2111 


37251777777 








POM 




7 


177777 


2112 


23136777757 






SM 


INC 




PSPO 


WPS 


2113 


30177427437 






RD 


ADD 




PUS 


DATA FVFN 


2114 


3725777076? 




Z 




ADD 


I.PZ 


7 




2115 


37551600017 








pnv 




V 


000017 


2116 


30777437771 




PC 


RD 


ADD 






odd 


2117 


37551607400 








PQM 




X 


007400 


2120 


37136777755 




SPO 




INC 




PSPO 


WPS 


2121 


31175302437 


* 




RC 


TRS 


ST 1 


PUS 


DATA PSB 


2122 


32775373317 


* 




RR 


CFS 


SP1 




HRF 


2123 


36617777777 






PR 


ahd 




FD 





2124 
2125 
2126 
2127 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 



37751607777 
33675123777 
37751777777 
37136777755 
32177427437 
36757770777 
37651600017 
32777437773 
37651607400 
37136777755 
33175372437 
374777070«S5 



Z _'nFFF* 

SKTP TF" EVEN t OF DIGITS 

7. _ 'FFFF' 

S-3 

SKTP IF FVFN BYTE AODPFSS 

7 _ '000F' OP 'OOKF' 

X _ 'OOOF' 

RC HAS BYTF C^T-J IN 15LSR 

X _ 'OFOn' 

S-2 



^1 _ LSR OF PR Fn« SCAMR 
KEEP ORG X IN ROfNOW FREE) 



♦ THIS SUBROUTINE RETURNS THF SI^M AMD «*Si* MASKS FOR A 

♦ IT EXPFCTS SPO TO "(lf'TUN S-1 

*TT RFTHRNS THF STGM ^ASK IN PR AMD THE MSW MASK TN RR 

PB _ 'OFFF' 



MSK 


R 




POM 




PR 


007777 






RA 


FRS 

P(jM 


SP1 


PA 
PP 


PJS 
177777 




SPO 




THC 




PSPO 


WRS 






RR 


ADD 




PUS 


DATA FVFN 






PB 


ADD 
POM 


LP? 


PR 

PR 


000017 




RA 


RR 


fDD 
POM 




RP 


non 
007400 




SPO 




TNC 




PSPO 


rfPS 






RA 


CRS 


PI 1 


PI'S 


DATA 


$ 


SPO 




ADD 




sn: 


CI SP PSR 


* 












,«. 


* 














* 















PB - 'FFFF' TF RA IS EVEM 

S-1 

SKIP IP FVFN BYTF ADDRFSS 

PR _ 'OOOF' OR 'OOFF' 

RB _ 'nnnF' 

«A HAS BYTE CNT-1 I *1 IS LSR 

RB _ 'OFOO' 



2140 


37766342232 








JMP 


NSI,' 




F3 


2141 


14722361507 


SLDX 




CTRL 


JSR 


FTC" 


SP2 


u»jr 


2142 


26757777777 






OPMD 


ADH 




PB 




2143 


23176777777 


COG' 




SM 


TNC 




VUfi 


ROS 


2144 


013261621S1 


CKOG 




SP1 


JMP 


* + 5 


SPO 


F2 


2145 


21777077760 


CYD' 


PL 





rTAD 






NOFL 


2146 


34766361456 






DL 


•IMP 


TA15 




f'MC 


2147 


22777077776 




URHS 


DP 


DCAD 






NfJFL 


2150 


37766361456 








JWP 


tai* 




WiC 


2151 


32777077773 


- 


PA 


RB 


nC'D 






MOFL 


2152 


37766361456 








JMP 


TM5 




II NC 


2153 


30777077771 




PC 


RD 


DCAD 






NOFL 


2154 


37766361456 








JMP 


tai* 




UNC 


2155 


25737707777 


* 
* 




SP3 


ADD 




FP2 


PSB 



TF NSLD THFN JUMP 



FETCH THF MODIFIED X 



PAGF 37 



ADDRESS 



CONTENTS 



LABI. RBUS SBUS *-'UNC SPFT Fl'OR SPEC SKI* 3 



COMMENTS 



FPI, JUN 4. 1976, 10:14 AM 



1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

155 3 

1554 

1555 

1556 



2156 


26341527774 




OPND 


ROMN 




CTRL 


7774 


POS 


2157 


37766362227 






JMP 


SLSP 






Pi'JC 


2160 


26761410003 




OPND 


ROMN 






0003 


NZPO 


2161 


16766362173 




UBUS 


JMP 


SI XX 






UNO 


2162 


16761000001 




UBUS 


POMX 






0001 


ZERO 


2163 


16766362166 




UBUS 


JMP 


Sl.Xte 






UMC 


2164 


16762361024 




UBUS 


J SB 


LIP' 






UNC 


2165 


37766362173 






JMP 


ST.. XX 






UNC 


2166 


16761000003 


SJ..XW 


UBUS 


ROMX 






0003 


ZERO 


2167 


37766362172 






JMP 


* + 3 






UMC 


2170 


37762361215 






J SB 


L2D' 






U'MC 


2171 


37777767777 






ADD' 








IPVC 


2172 


37762361 120 






J SB 


L3D' 






U viC 


2171 


14767773157 


SF.XX 


CTRL 


SUB 


SP1 




CTF 




2174 


16357773777 




UBUS 


ADD 


FP J 


CTRL 






2175 


3*52614221 3 




SP2 


JMP 


S1.X7. 


SP3 




Fl 


2176 


33777407777 


L4D' 


PA 


ADD 








ZERO 


2177 


37777777517 






ADD 






SCRY 




220D 


37766162206 






JMP 


ST XY 






*2 


2201 


37437777777 






ADD 




o 






2202 


21457777777 







ADD 




PB 






2203 


22717777777 




DP 


ADD 




PI. 






2204 


34237777777 




DL 


ADD 




PL 






2205 


37777777760 


PL 




ADD 










2206 


16617777777 


Sl.XY 


UBUS 


ADD 




FD 






2207 


30637777777 




RD 


ADD 




PC 






2210 


31657777777 




r<c 


ADD 




PR 






2211 


32677737277 




RB 


ADD 




PA 


T"'CT 


r cpm 


2212 


37766362176 


- < 




JMP 


IAD' 






UMC 


2213 


37317777455 


ST.XZ SPO 




ADD 




FP1 


CF1 




2214 


377223615*7 






JSP 


FTCP 


FP2 




UNC 


2215 


37777S57777 






ADD 








MF1 


2216 


37777777517 






ADD 






SCRY 




2217 


26542171476 


RFST 


OPND 


JSH 


PFTP 


X 




NF2 


2220 


0^761410060 


APOP 


CTR 


F OMN 






0060 


K7.PQ 


2221 


37777757777 






ADD 








NEXT 


2222 


23471777776 




SM 


RQfv' 




FM 


17 7 7 7 6 


2223 


0O761 11O040 




ctr 


ROMN 






0040 


»ZPO 


2224 


37777757777 






ADD 








'-■ E X T 


2225 


23471777776 




Sf' 


ROM 




FM 


177776 


2226 


37777757777 






ADD 








NEXT 



DELETE 2LSB HE MOD. X 

TF A RIGHT SHIFT IS DEEDED 



11 iMOT 10 CAUS PREV 01 



Fl=l IF #WD FHTFTS=0 

JMP TF NO SHIFT MFEDFD 
WILL AMY DIGITS BE LOST? 

TF SO, THEN SET CAPRY 
JMP TF SHORT; URUS-0 



SKIP jiHEn DOME 
REST «A J m SPIrCFl FOR STOP 
STMR ,F1 sNON-STOR-OTGOO 
JSB TF LOMG 



PAGE 38 ADDRESS CONTENTS LABT PBUS SB1JS FUMC SPFT STOP SPEC SKIP COMMENTS FRI , JU*' 4, 1976, 10:14 AM 

1557 

1558 2727 267620*1064 

1559 2230 267*2021246 

1560 2231 35526362213 
1561 
1562 
1563 

1564 2232 37762361401 

1565 2233 16666002141 UHUS JMP ST. BY PA ZERO SPO(MBUS) HAS SIG DIGITS 

1566 2234 23136777577 SM TNC PSPO ROD FETCH SAVED "OP. X fi S" + l 

1567 2235 31635372777 RC CRS ST 1 PC RESTORE RC FRO* 'SKA 

1568 2236 33777777770 RD RA ADD TARG LEN NEEDED (X+SIG) 

1569 2237 16767517771 PC URUS SUB NCPY fACT. TARG)>=(TAPG NEEDED")? 

1570 2240 37766362141 JMP ST P> UNC YES, JUST ST.D 

1571 2241 33667507511 PC PA SUP PA SCRY CRRY MEW SHIFT AMOUNT 

1572 2242 37766161457 ,1MF TAH "'\'C SET OVERFLOW IK SIOTAPG 

1573 2243 37176777755 SPO TNC PILS WRS SM + 2 

1574 2244 33167777430 PD RA SUB RUS DATA REVISED X; UBUS_(ORGX-NEWX ) 

1575 2245 26667777776 "BITS flPNP SUB ■* PA RA_(ORf:x-NFWy ) - (ORGX + -2) 

1576 2246 23176777757 SM JNC PUS WPS STORE AT SM + 1 

1577 2247 33167777437 RA SUR PUS D*TA Si-1+l _ NFWX+-2 
157R 2250 37766362141 



ST.SR 




OPND 


JSR 


R1D 






ODD 






OpfJO 


JSB 


P2D 






FVEN 


* 




SP2 


JMP 


STXZ 


SP3 




U-MC 


* 
NSL' 






JSP 


SCNP 






UNC 






URUS 


JMP 


si.ny 


PA 




ZERO 






SM 


TNC 




PSPO 


ROD 








RC 


CRS 


ST 1 


RC 








RD 


RA 


ADD 












PC 


URUS 


SUB 
JMP 


sr.pv 






NCPY 
UNC 




PC 


PA 


SUP 

JMP 


TAn 


PA 


SCRY 


CRRY 
TK'C 




SPO 




TNC 




rn.s 


WRS 






PD 


RA 


SUB 




RUS 


DATA 






"BUS 


nPNP 


SUB 


- 


FA 










SM 


INC 




PUS 


WRS 








RA 


SUB 

JMP 


STDX 


PUS 


0*TA 


1 yfC 



PAGF 39 



ADDRESS 



CONTENTS 



LARL PHUS SBUS FUNC SPFT STOR SPEC SKIP 



COMMENTS 



FRI 



• TUN 



4, 1976, 10:14 AM 



1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

16A7 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 



♦ THTS IS THF SRP USTPUCTTON 



2251 

2252 

2253 

2254 

2255 

2256 

2257 

2260 

2261 

2262 

2261 

2264 

2265 

2266 

2267 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2 317 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2330 

2331 

2 3 32 

2333 

2334 



23322362025 

37777577766 

16771777776 

16177777637 

37762362060 

26771570002 

16177777637 

23176777741 

26177667437 

37762361346 

37762361331 

37762362107 

37762362124 

14722361507 

26742362143 

26341527774 

37766362332 

26761410003 

16766362305 

16761000001 

16766362300 

16762361064 

37766*62305 

16761O000D3 

37766362304 

37762361246 

37777767777 

37762361155 

14767773157 

16357773777 

36526142321 

33657777777 

32637777777 

31606162317 

30237777777 

37717777760 

344S7777777 

22437777777 

37677737277 

37646362311 

37777777766 

16767057777 

16777771777 

16777677777 

30603767776 

21423777765 

37317777455 

37722^61557 

37766362217 

26762031027 

26762021217 

35526362321 



SPO 



SM 



JSB SRLr SPO 



UNC 





X 




ADD 








I-IF2 






UBUS 


POM 






177776 






UBUS 


ADD 
JSB 


C*AB 


PUS 


OPND 


PNC 






OPND 


POM 






0002 


NF2 






UBUS 


ADD 




BUS 


OPND 






SR 


SM 


INC 




PUS 


WHS 








opnd 


AD') 
JSB 
JSB 
JSB 
JSP 


SPLT 
FPEF 

MSKA 
MSKF 


PUS 


DATA 


?;"RV 

IIMC 

HNC 

PNC 

UNC 






CTRT, 


JSB 


FTCP 


SP? 




UNC 






opnd 


JSB 


C^G' 


PB 




UNC 






opnd 


PflMN 
JMP 


SPSt 


CTRL 


7774 


PJS 

UNC 






OPND 


POMN 






0003 


NZPO 






UBUS 


JMP 


SRXX 






UNC 






UBUS 


pnwy 






0O01 


ZERO 






UBUS 


JMP 


SPXW 






MNT 






UBUS 


JSB 
JMP 


R1D 
SPXX 






PNC 

UNC 


SRXW 




UBUS 


PO'*X 

JMP 

JSH 

ADD 

JSB 


* + 3 
P2P 

R3D 




000 3 


ZERO 
UNC 

UNC 

l!f\IC 

r. \c 


SPXX 




CTRT 


SUB 


SP1 




CTF 








UBUS 


ADD 


SP1 


CTRL 










SP2 


JMP 


SPXY 


SP3 




Fl 


R4D 




RA 


ADD 




PB 






R4D' 




RB 


ADD 




FC 










RC 


JMP 


* + 5 


PD 




F2 






RO 


ADD 




PL 








PL 


DI. 
DB 


ADD 
ADD 

ADD 




PL 
PB 














ADD 




PA 


INCT 


CTP* 








JMP 


P4P' 


PB 




UNC 


SRXY 


X 


UBUS 
UBUS 
UBUS 


ADD 
CAD 
ADD 
ADD 


LI.Z 






RTT6 
NF2 




MRUS 


RO 


AND 




PD 




u,\rc 




PBUS 





AND 




C 








SPO 




ADD 




SP1 


CF1 










JSB 


STOP 


SP2 




UNC 








JMP 


PFST 






UNC 


SRSL 




OPND 


JSB 


Lin 






ODD 






OPND 


JSB 


L?D 






F.VEN 






SP2 


JMP 


SRXY 


SP3 




UNC 



CHECK B-BNDS.STOV f r.)IG&0-LEN 
R-SICN-WHRD A HALF WORD? 
NO DECP X BY 2 

CHECK A BOUNDS 

A-STCN WORD A HALF WORD? 

^0 , INCR X BY 2 



SPLIT STACK? 



CHECK FOP TLLECAL PIC ITS 

DELETF 2LSB OF Mou. x 

TF A LEFT SHIFT TS NEEDED 



1 1 NOT 10 TAPS PREV 01 

Fl = l IF *WP SRTFTS = 
JMP IF NO SHTFT N^FD^D 

DOME TF F2 (SHORT) 



CLEAN UP LSaI FOFF OR FFFO 
FOFF => FOOO 

SHORT 

LUNG 

REST i3A IN SP1;CF1 FOR STOP 



PAGE 40 ADDRESS CONTFNTS LABL PBUS SBUS FUMC SHFT STOR SPEC SKIP COMMENTS FRI, JUN 4, 1976, 10:14 AM 

1613 

1614 * D4B CONVERTS 1 WORD (A DIGITS) DEC TO 1 ^ORD BIM 

1635 * DEC WORD RECEIVED Of UB?JS f SPl - RETURNED TN SP3,UBUS 

1636 * SP2 IP USED FOR ATI, IFDICATIOM (SP2=0) 

1637 * TRAPS ON INVALID DECIMAL 

1638 2335 16777077777 D4B 

1639 2336 37766363767 JMP TCIP UNC INVALID DEC TRAP 

1640 2337 35733377774 SP1 SP2 TOR SP2 SP2 TS ZERO INDICATOR 

1641 2340 01521770000 SPt POMN SP3 170000 EXTRACT ms DTGTT 

1642 2341 16777773777 

1643 2342 16777773777 

1644 2343 25537773776 

1645 2344 01761607400 SP1 POMN 007400 EXTRACT 2ND DICIT 

1646 2345 25537777776 

1647 2346 16777773777 
164R 2347 16777773777 

1649 2350 25537773776 

1650 2351 01761600360 SP1 POMN 000360 EXTRACT 3RH DIGIT 

1651 2352 25537777776 

1652 2353 16777773777 

1653 2354 16777773777 

1654 2355 25537773776 

1655 2356 01761600017 SP1 PO»'N 000017 EXTRACT 4TH DTCIT 

1656 2357 25537707776 





UBUS 


DC AD 






NOEL 






JMP 


TCIP 




UNC 


SP1 


SP2 


TOR 




SP2 






SPt 


POMN 




SP3 


170000 




UBUS 


ADD 


SP1 








UBUS 


ADD 


SP1 






UBUS 


SP3 


ADD 


SP1 


SP3 






SP1 


POMN 






007400 


UBUS 


SP3 


ADD 




SP3 






UBUS 


ADD 


SP1 








UBUS 


ADD 


SP1 






UBUS 


SP3 


ADD 


SP1 


SP3 






SP1 


POMN 






000360 


UBUS 


SP3 


ADD 




SP3 






UBUS 


ADD 


SP1 








UBUS 


ADD 


SP1 






MRUS 


SP3 


ADD 


SP1 


SP3 






SP1 


POMN 






000017 


UBUS 


SP3 


ADD 




?P3 


PSB 



PAGF 41 



ADDRFSS CONTFNTS 



LARL RBUP SRUS FUNC SPFT STOR SPEC SKIP 



COMMFNTS 



FRI, JUN 4, 1976, 10:14 AM 



1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 



&2360 



2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2400 



37766362400 
37766361275 
37766361641 
37766363323 
37766363112 
37766363450 
37766362024 
37766362023 
37766362251 
37766362403 
37766362402 
37766362402 
37766362566 
37777777777 
37777777777 
37777777777 
37571607777 



UMIM 

* 



JMP 


UMIV 


JMP 


DMPY 


JMP 


CVAD 


JMP 


CVDA 


JMP 


CVPP 


JMP 


CVDF 


JMP 


ST D 


JMP 


NSLP 


JN'P 


SPD 


JMP 


A HDD 


JMP 


SUBD 


JMP 


SIIPP 


JMP 


MPYP 


ADD 




ADD 




ADD 




POM 





u<mc 

UNC 
UMC 
UNC 
UNC 
UMC 
T1NC 

uwc 
UMC 
I'NC 
UNC 
UNC 
nic 



FAR 007777 



MSLD 



CMPD 



2401 37777777777 



ADD 



SPACEK 
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ADDRESS CONTENTS 


1680 






1681 






*♦* WARNING 


( 2) ♦ ♦♦ RBR CONFL 


1682 


2402 


03156777017 


1683 






1684 


2403 


23322362027 


1685 


2404 


37762362060 


1686 


2405 


24762131346 


1687 


2406 


37762361327 


1688 


2407 


37762362107 


1689 


2410 


37762362124 


1690 






1691 






1692 






1693 






1694 






1695 






1696 






1697 






1698 






1699 






1700 






1701 






1702 


2411 


14722361507 


1703 


2412 


25117777574 


1704 


2413 


26746342420 


1705 


2414 


37777427766 


1706 


2415 


37762361246 


1707 


2416 


37777437766 


1708 


2417 


37762361217 


1709 


2420 


377777771*6 


1710 


2421 


16767057777 


1711 


2422 


16777771777 


1712 


2423 


26163777636 


1713 


2424 


17763777666 


1714 


2425 


16761410017 


1715 


2426 


17777776777 


1716 


2427 


16761010015 


1717 


2430 


03156767017 


1718 


2431 


16777777717 


1719 


2432 


16777427477 


1720 


2433 


37762361361 


1721 


2434 


25347377777 


1722 


2435 


37327377777 



LABL R8II5 SR"S FUNC SPFT STOR SPEC SKIP 



COMMENTS 



FRI, JUN 4, 1976, 10:14 AM 



♦ CMPD AND SHBD 
WITH PRFFFTCH OP 



INSTP 



SMBP 
♦ ADOD 
ADOO 



RRP TNC 



SM 



PNTRY 
SBR 



APS 



ST A 



CKLW 
CKAP 
SPLT 
FPAP 
MSKA 
MSKP 



SPO 



UNC 
HNC 
MEG 
UNC 
UNC 
UNC 



JSB 
JSP 
JSP 
JSB 
JSB 
JSR 

♦ THIS IS THE ADP SFTTTOV 

♦upon entry it expects: 
*SP1 - ADDRESS of msw 
*SP3 - MJPD COUNT (0-7) 

♦ X - SIGN MASK 

♦ 7. - MOST SIGNIFICANT WPRP MASK 

♦ F2 - "USE ONLY FOUR WOFPS" 
*E3 - "DOP'T HEED TD SHTFT *B'" 

USES SPO.H.CVTP ( AMP THEY ARE EPF.E A 
RETURNS THE A^SKEP TN (RA , RP ,PC , *D ) OP 
USES ABS-PAPK-PFG EVFM/nDP TO DFTERMIK 



SET ABS-BANK-REG TO 1 

CHECK STOV,ZLEM,P-BNRS 
CHECK A-BNPS 



♦ IT 

♦ IT 

♦ TT 



♦ ifpon 



EXIT SP1 
CTRL 



T THE END ) 

( RA , PB , RC , PO , PL , DL , OP , ) 
E ArTUAT. ADO/SUBTRACT 
= «MSW,OPNP = (MSW),F3 = CARR* OUT 



AOSC SP1 



URUS 
X 



SP3 

OPNP 



URUS 

URUS 

OPNP 

SRUS 

UftUS 

SB US 

URUS 

RPR 

URUS 

UBUS 

SP3 



JSB 

ADO 

JMP 

A DP 

JSB 

ADD 

JSP 

A DP 

fAP 

ADO 

« NO 

AMP 

ROMN 

6PD 

POMX 

INC 

ADD 

ADD 

JSB 

CAD 

CAD 



FTCM 



♦ + 6 



R?D 



1, 2D 



LTZ 



SWAP 



9CMP 



SP2 

PSP1 

PR 



BUS 



SRR 



CTPL 
SPO 



ROD 



!E3 



OPND 

CCL 

0017 

0015 
APS 
CCG 
SF1 



UNC 
E3 

eve; J 

PNC 
ODP 
PNC 

HIT6 



MZRO 

NZPJ 
1INC 

EVE J 
UNC 



SP1 _ «LS*I 

JMP TE B DOESN'T Nf:£P SHIFT 

IS MASK 'OFOO'? 

■M, SHIFT 'B' RICMT 

IS MASK *0O0F'? 

MO,S"IET 'R' LFTT 

SIGN 'OOOF*? 

MRUS *'AS 'FOFF'JMA^F. 'FQOO' 

npMD _ MASKED LSW 

UBUS . SIGK 

TN PMSTTIO^l 'OOOX' rY^S-OK 

VO-RHTATECALSO IF ALL 0) 

R-SIGN NFG? 

INCH ABS-RANK-RF:n IF NEG 

SET CCG IF 'A' 'JOT NEG 

SKTP IF ACTUAL APDITTON 

COMPLEMENT, SF3 IF ACT. SUB 

CNTR _ WORD COUNT 

SPO _ %177777 
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ADDRESS 



CONTFNTS 



LABI. RHUS SBUS FUMC SHFT STOR SPF.C SKIP 



COMMENTS 



FRI, JUN 4, 1976, 10:14 AM 



1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

17 39 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 



2436 37766162463 

2437 37762332535 

2440 01117737575 

2441 26763777775 



2442 
2443 
2444 
2445 
2446 
2447 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2460 
2461 
2A62 
2463 
2464 
2465 
2466 
2467 
247 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2500 
2501 
2502 
2503 
2504 
2505 
2506 



21437077276 
37766361456 
37762332535 
01 117737575 
26763777775 
22457077276 
37766361456 
37762332535 
01117737575 
26763777775 
34717077276 
37766361456 
37762332535 
01117737575 
2*763777775 
16237077260 
37766361456 
37762332535 
01 117737575 
26763777775 
30617077276 
377663614^6 
377*2332535 
01117737575 
26763777775 
31637077276 
377*6361456 
37762332535 
01 117737575 
26763777775 
32657077276 
37766361456 
37762332535 
01117737575 
26763777775 
33677077776 
37766361456 



JMP APSH F2 JUMP IF SHORT (F2) 

JSB APDN CTRM JSB DONE IP CTPM 

SPO SPt POP PSP1 POD CTRM 
PPO OPND AND 
♦BEFORE CTRM (AMD THE JSB TO DONE), SPO = %177777 

♦AND THE PREVIOUS TWO LINES WILL nECREMFNT SPt AND GIVE JUST OPND 
♦IMMEDIATELY AFTER CTPV (AND THF JSB), SPO = 

♦ AND THE PRFVIOUS Th'O LTNFS WILL PR0D1ICF h NEW REOUFST TO MSW 

♦THF SP<M=0) OPND AND, PI* CE IT IS NOP'FD, WILL OF HPND ( MODTFTED ) 

♦ POP LINES AFTEP THAT, OPWD AND i'JTLL PRODUCE 0. 

INCT MOFL 



ADD. 



ADSH 



UBUS 





DCAD 








JMP 


TM5 






JSB 


APD* : 


SPO 


SP1 


ADD 




SPO 


OPND 


AND 




UBUS 


DB 


DCAD 








JMP 


TA15 






JSR 


APDF 


SPO 


SP1 


ADD 




SPO 


OPND 


AND 




I) BUS 


DL 


DCAD 








JMP 


TA1S 






JSB 


ADD" 


SPO 


SPl 


ADD 




SPO 


OPNn 


AND 




PL 


MRUS 


DCAD 








JMP 


TA15 






JSB 


ADD*' 


SP«' 


SPl 


ADD 




SPO 


OPND 


AND 




UBUS 


RD 


DCAD 








JMP 


TMS 






JS« 


ADD*' 


SPO 


SPl 


ADD 




spn 


OPND 


AND 




UBUS 


PC 


DCAD 








JMP 


TA1«S 






JSB 


ADD* 


SPO 


SPl 


ADD 




SPO 


OPND 


AND 




UBUS 


«B 


DCAD 








JMP 


TA15 






JSB 


APD>' 


SPO 


SP1 


ADD 




SPO 


OPND 


A N D 




UBUS 


RA 


DCAD 








JMP 


TA15 



FSP1 ROD 



TB 



PL 



PI, 



r-D 



PC 



PB 



INCT 



PSP1 ROD 



I?CT 



PPP1 ROD 



INCT 



KSP1 ROD 



TMCT 



PSP1 ROD 



INCT 



PSP1 ROD 



TMCT 



PSP1 POD 



PA 



UNC 

CTRM 

CTP"4 

NOFL 
UNC 
CTRM 
CTPM 

NOFL 
UNC 
CTPM 
CTRM 

NOEL 

n.MC 

CTRM 

CTPM 

NOFL 
UMC 
CTRM 
CTPM 

**OFL 
UNC 
CTR«! 
CTRM 

NOFL 
UMC 
CTPM 
CTRM 

VOFL 
UNC 



JU^P ILLFGAL D1CTT TRAP 



PAGE 44 


ADDRESS CONTENTS 


1771 






1772 


2507 


00766022541 


1773 






1774 






1775 


2510 


03777437017 


1776 


2511 


37777747777 


1777 


251? 


37777777457 


1778 






1779 


2513 


37777747777 


1780 


2514 


03777437017 


17R1 


2515 


37766362531 


1782 


2516 


37762361 3M 


1783 


2517 


245012004O0 


17*4 


2520 


37766162525 


17 85 


2521 


214*7377777 


17R6 


2522 


22457377777 


1787 


252* 


34717377777 


1788 


2524 


37237377760 


1789 


2525 


30617377777 


1790 


2526 


31637377777 


1791 


- 2527 


32657377777 


1792 


2530 


33677377777 


1793 


2531 


37722361557 


17Q4 


2532 


26542171476 


1795 


2533 


37766141453 


1796 


25 34 


37766362220 


1797 






1798 






1799 


2535 


37337777777 


1800 


2536 


261637076^2 


lflOl 






180? 


2537 


37762361374 


1803 


2M0 


37766362220 


1804 






*** WAPNINr 1 


[ 2) **♦ RPR CHNFL 


tfl05 


2541 


03777^37017 


1806 


2542 


37777747637 


1807 


2543 


37777767637 


1808 


2544 


37766362564 


1809 


2545 


37777747777 


1810 


2546 


03777437017 


1R1 1 


2547 


37777767777 


1812 


2550 


24501200400 


1813 


2551 


31 31 3377770 


1814 


2552 


33773377772 


1815 


2553 


01773007776 


1816 


?554 


37766362564 


1817 


2555 


37777577777 


1818 


2556 


37777777737 


1819 


2557 


22766162564 


1820 


2560 


21313377776 


1871 


2S61 


34773377760 


1822 


2562 


01773017776 


1823 


2563 


37777777737 



STORE K, TEST FOR OVE 




RESTORE PI,, OT,, PR, Q IF 


LO M G 


..tup TRftp-M-)Q-nyFPFt,nv 


TK F1 



LARL P3US SRTIS FUWC SHFT STOR SPEC SKIP CQMMFNTS FRI , JUM 4, 1976, 10:14 AM 



CIR JMP CMP EVEN jmp IF CQMPAPF 

♦THIS SECTION DETERMINES VHETHRP OR WOT THE RESULT IN REGISTERS 

♦ HAS TO BE COMPLEMENTED 

RPR ADD APS riDO SKIP IE ACTUAL SUBTRACT 

ADD F3 SKTP IF CARRY HOT 

ADD CE1 HERE IF SUB OR A.0D&ME3 

♦ LEAVE Fl SFT TF ALREADY OVE 
ADD Fl SKTP ic CARRY OUT 

RPR ADD APS OOP SKTP IF SUP 

.IMP ADF f !IJC MEPE IF ADD OR SUBCF3 

,LSB 9CMR ITNC HERE IE SUB&NF3 (RECOUP ) 

STA PH^x STA 00040O rrr, _ r_CG OR CCG _ CCL 

10CM JMP *+5 E2 

nCAO C 

DP DCALi OB 

PL prAD PL 
PL DC AD PL 

RD DCAD PD 

RC "CAP CC 

Rn DCAD PR 

RA DCAD PA 
ADEN' JSP STHT FP2 UMC 

OPND JSR PSTT > MF2 

JMP TX13 Fl 

JMP ACHE l!'JC 

♦ THTS IS THE SUPRDUTl^E TPAT TS CALLED PY THE An DP "FETCH A" 
♦POPTTO^ OF THE I* , STPrC r TOfi FOR THE LAST 'A 'WORD JM 4EMORY 
ADD" ADH ppn 

7 OPMP AND PUS OPNP "SM 

♦HERE FOP ZFRO LENGTH OPERANDS OF APDD FAMILY 
flPZL JSR PSHA H"jr 

j,vr> arnp iimc 

♦ THTS DOES THF END OF THE COMPARE [MST»"CTTON 
WTTIt PPFFV-TCH 0* TNSTP ENTRY 

CMP RPR ADD APS ODD ACTUAL SUB ? 

ADD CT.O F3 NO,E3 ? 

ADD CLO UHC MERE IE SUP OR ADD&NE3 

JMP CPF*' VVC DOME, M)J. SM; Apn&F"3;NO CCK 

ADD *-'3 

RBR ADD APS ODD '1F3, SI'B? 

ADD U'JC F3&SUB,NF3&APD 

STA POMX STB 00P400 MF3&SUR ; RECO M PLEMENT 

PD RC TOR SP] 
PR RA TOP 
HOPS SP1 JOR ZEPO 

JMP CPF.m (JMC NOT CCE,D0VE 

ADD »"F2 

ADD CCE 

DP JMP CPE*! E2 nrTJE IE SHORT 

DBMS TOP SP1 
PL LH, TOP 
UBUS SP1 I OR MZRO 

ADD CCE SET CCF ON CMPP 
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ADDRESS chNTENTS 



liABL RB"S SPIIS FUK'C SHFT STOR SPEC SKIP 



COMMENTS 



FPI. T(IN 4, 1976, t0:14 »M 



1824 
1825 



2564 
2565 



37762361465 
37766362220 



CPRN 



JSB 

JVP 



RST» 
APOP 



UNC 
UNC 
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ADDRESS CONTENTS 


1826 






1827 






1828 


2566 


23322362027 


1829 






18 30 






18 31 


2567 


37762362060 


1832 


2570 


32775263317 


1833 


2571 


37762361346 


1834 


2572 


37762361335 


1835 


2573 


3776236M07 


18 36 


2574 


37762362124 


18 37 






18 38 


2575 


37771600011 


18 39 


2576 


23137777756 


1840 


2577 


37177777422 


1841 


2600 


37777427426 


1842 


2601 


255317O00f>0 


1843 


2602 


37136777755 


1844 


2603 


25177777437 


1845 


2604 


37176777755 


1846 


2605 


01177777437 


1847 






1848 






1849 






1850 


2606 


37437777766 


1851 


2607 


37762361401 


1852 


2610 


16662 '61 433 


1853 






1854 


2611 


167671 37773 


1855 


2612 


176263627S7 


1856 






1857 


2613 


33771537761 


1858 


26V4 


37766361 4S7 


1859 






1860 


2615 


25457777777 


1861 


2616 


01717777417 


1862 






1863 






1864 


?617 


37551600017 


1865 


2620 


14771537774 


1866 


2621 


37766362771 


1867 


2622 


14722361507 


1868 


2623 


37777747777 


1869 


2624 


37762361155 


1870 


2625 


37762341064 


1871 


2626 


37777777437 



LABL RBUS SBUS FUNC SHFT STOR SPEC SKIP 



* MPYD DEC 
MPYD SM JSB 

* COMMON WITH NSLD 

* FfiP BOTH A S, R - 

JSP 



RB 



* SAVE A 

HBUS 

7. 
X 

SPO 



MULTIPLY 

C.YI.M SPO 
- rnrcKS valtd 
POl'NPS FOR B & 

C*AP 

SM 

SPIT 

FPLC 

M P-K P 

SIGN 



CRS 
JSR 
J SB 
JSP 
JSB 
PARAMS (WSV 



HRF 



SPO 



SM 



SP3 
SP3 

SP1 

. A 



POM 
ADP 

*nr> 

ADO 
POM 
INC 

ADD 
TNC 
ADO 
FOP LEAPING 



UNC 
DIGIT •« 4 
FOR STACK 
MMC 
NPPV 
PMC 
"NC 
tP\iC 
il\'C 
MASK AW WORD * ) 
00001 1 
PSPO WPS 
PPS DATA 

CF2 F/EN 

10 00 

WPS 

DATA 

WPS 

DATA 



COMMENTS 



ZERO DGTT « 

OVERFLOW 
CHECK BOUNDS 
Fl SET IF S»B 



FRI, JUM 4, 1976, 10:14 AM 



FOR 
ODD 



FRFE 
MASK 
''ASK 



REGS 
A 

B 



LONG 



S P 3 
FSPO 
PI'S 
PL'S 

ri«s 

7FPOS 



SM NOT YET SW FRO* VSKB 

SPO _ S«' + 9 

MSW MASK 

CLEAR K2 FOR TA1 3 

SET "SB IF 'OOCF* 

WORD count 

TARGET 



SCAN P 

SCMB & SCMP M TURK'S VODIFTED 

ADDRESS, WORD #,*■£■>' "/ASK ALSO 

X ADO r 



FIPPS 
PTCK SHORTER 



ADO 

JSP SCNP 

JSB SC* A 

rPEPApn - 

CAn 

JMR D^FC 

# < i=; 

POM 



MGIT * TM SPO 
MODIFIED 

SIGN MASK 
UNC 

HMC RA_4PIGITS 

IK PBfAKPBCPI 



TO 
IM 'H 



MBUS 

* CHECK DTGIT 

RA 

■JMp TM3 

* TPAKSF A PAPA^' : X TO 

SP3 ADO 
SM ADD 
SHORTER OPERAND 



PA 
EXCHANGE 

•"EG LEM(n) - LFJfA) 

PC !!Mr - FXr-HANCE (SLOV> 

7 761 MEG -15 

U*)0 DIGIT % >14 CVFRFL 
SP3 to iM, SM TO PL 
•fOR|) COUNT 

word a 



JIJvp) 



FETCH 
STNCE 



, Z VRpT, 
DB 
PL 

- CAN 



nwpt 



F? SET 



CTRI 



CTRL 



FTCH 

ROM 

JMP 

JSP 

Apn 

JSB 
JS« 

ADD 



KFEPS MSW 
X 



D^p? 
FTCH 

R3P 
R1D 



SP2 



SF2 

BE 5 WORDS 
(DIGIT) IN 
000017 
7774 NEC 
"«JC 

U.NJC 

P3 
u -ir 

**3 

CF2 



PL 



FOR 
-4 



FTCH 

WORD 

NO 



# < 5 



SKIP TF LSW FULL 

LSW HALF 

LSW FULL 

RESET TO L'lNC FQP CV"D TRAP 
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ADDRESS 



CONTENTS 



LABL PBUS SBUS FUMC SHf T STOR SPEC SKIP 



COMMITS 



FPI, JUN 4, 1976, 10:14 AM 



1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

191 1 

1912 

1913 

1914 

1915 



2627 
2610 
2631 
2632 
2633 
2634 
2635 
2*36 
2637 



2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2650 



2651 
2652 
2653 
2651 
7655 
2656 
2657 
2660 
2661 
2662 
7663 

2664 
2665 



37331623420 
33302362335 
16677777777 
32302362335 
37762363745 
31302362335 
37762363737 
30302362335 
37762363711 



34737777777 
22357777777 
37757777762 
21657777777 
32537777777 
31317777777 
3025/777777 
37561600017 
1 4772361507 



25546002656 
23176777757 
25177777417 
37557767217 
01766007660 
01177777637 
37777777217 
37757747717 
37762361027 
37372341 172 
37522362145 

03777427017 
37777777677 



2666 37537777442 

2667 37257777177 

2670 37317777760 

2671 37237777777 



* 


CONVERT TO PJ 


[NARY 














DMP3 


POM 




SPO 


073420 


10K FOR CVDB 






RA 


JSR 


D4R 


PP1 




mc 


COMV MSW 






URUS 


A on 




FA 












RR 


JSP 
JSP 


DAB 
DP VI 


SP1 




UNC 

UNC 


CONV 2ND WORD 
CO -JIB WORDS J ,2 






RC 


JSP 
JSP 


D4B 

DPM2 


PP1 




"NC 
UNC 


CONV 3RD WORD 
COMB WORDS 1,2,3 






RD 


JSP 
JSB 


D4P 
DPM* 


SP1 




UHC 
UNC 


CO"V 4TH WORD 
COMPLETE CONV 




* 


RTNARY VAX 3 


WORD! 


? (PR 


,PC,RD) 








* 


GET RFADY TO 


FETCP 2ND 


OPERAND 










DL 


ADD 




SP2 






ADDRESS 






DP 


ADO 




CTRL 






WQPD C n U M T 






Z 


ADD 




PR 






MSW mask 









ADD 




PP 






SIGN MASK 






RB 


ADD 




FP3 






SP1 _ MS BIN WORD 






RC 


ADD 




SP1 






SP1 _ MIDDLE HTN WPPP 






PD 


ADD 




7. 






7 _ LS BTM WORP 








POM 




y 


000017 


FOR FTCH 






CTRL, 


J*SB 


FTP 


SP2 




UNC 


FETCH 2ND OPFRAMO 




* 


SAVE T SK IM ! 


7, - NFXT '.•' 


opn in opni 


") - MSW 


OM STACK 




* 


AT SM + 14 - SP SF7 


TO INDICATE WHRP # f)F 


MPLER 




* 


SP = : 1 , S*> 


= 1 : 


7, SP 


= 7 : 


3 










SP"3 


JMp 


* + 4 


X 




ZERO 


MSW' =0 (X 


0) 




SM 


INC 




PUS 


WRS 




MS'- J TF NOT ZFpn 






SP3 


Ann 




a us 


OSTA 












ADD 




Y 


I'.'SR 


UMC 


SR=1 (X 


0) 




St't 


JMP 


* + 3 






ZFPH 


MIDDLE wnRn n ? 






SP1 


ADH 

ADn 




PUS 


nPM) 
T *i S fi 




SR=1 OP 2 








AOD 




PP 


CCG 


F3 


SKIP IF LSW Fl.FT,L(PR _ 


01 






JSP 


li n 






UNC 


I, EFT t DTGIT (Q 


0) 






JSR 


L?D 


SPO 




p"3 


LEFT 3 DTGTTS (O*SP0. 


_01 






JSP 


CKD' 


SP3 




l.'MC 


CHFCK VALID DEC (SP2 _ 


0) 


* 


SET CCL IF MEGATIVF (APS ODD) 










RPR 


ADD 
ADD 






ABS 
CCL 


EVEN 


SKIP IF POSITIVE 




* 


CTFAR ACCUMULATOR 


FOR 


MFLY 


PR SPO SP2 PT 


i Z X 






Z 


ADD 




SP1 


CF1 




FIRST BINARY MULTIPLIER 






ADD 




7. 


CF^ 




rz 


- ) 




PL 


ADD 

ADD 




SP1 
PL 






5TH MS WORD OF MULT I "L 
(PL - 


TC&ND 
0) 
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ADDRESS CONTENTS 


LABL 


RBUS 


SRUS 


FUNC 


SPFT 


FTOR 


SPEC 


SKTP 


1916 






















1917 






* MULTIPLY 












1918 






* DOUBLE 




RP HP PC 


RD 


SP1 


DL DP 


1919 






* (ACCUM) 




PH SPO SP? "T. 


Z 


r 


1920 


2672 


37351777757 


DMP4 






PflM 




CTRL 


177757 


1921 


2673 


25766022705 






SP3 


JMP 


n»'P7 






FVPN 


1922 


267 4 


21766141457 


DMP5 







JMP 


TM3 






v\ 


1923 


2675 


22437177776 




UBUS 


DR 


ncAP 




P 






J924 


2676 


34557377766 




X 


DI, 


DCAD 




> 






1925 


2677 


012^7377762 




7. 


S*M 


nCAP 




7 






1926 


2700 


302371777fio 




PL 


RD 


DCAD 




PI, 






1927 


2701 


35737177771 




RC 


SP2 


PC AD 




SP7 






1928 


2702 


32337177775 




SPO 


PR 


PC AD 




S°0 






1929 


2703 


16757.177773 




D!\ 


P« 


DCAD 




PR 






1930 


2704 


37766341457 


DMP6 






JMP 


TM3 






F3 


1911 


2705 


25537773777 


0MP7 




SP3 


ADD 


SRI 


SP3 






*** WARNING 


fl2) *** 7,ERO,v7,pq, 


NSME SKIP TES' 


TS MADE Oh 


T-BUS 






1932 


2706 


16775013317 






unus 


rRS 


SP1 




HBF 


V'ZPO 


1933 


2707 


37766202726 








JMP 


D^P9 






SR7 


1934 


?7io 


22766137723 






DR 


JN"P 


D»'PP 






OTRM 


1915 


2711 


22457377776 




UBUS 


OR 


PC AD 




rp 






t936 


2712 


34777777277 






DI, 


ADD 






TMCT 




193 7 


?713 


34717377776 




UBUS 


PL 


DC AD 




PL 






193 8 


2714 


01317377774 




SP1 


SP1 


PC AD 




SP1 






1939 


2715 


30617177770 




P!) 


RD 


DCAD 




RD 






1940 


7716 


31617177771 




PC 


RC 


DCAD 




PC 






1941 


2717 


32657377772 




RR 


RB ' 


DCAD 




FP 






1942 


2720 


33677157771 




»A 


RA 


nCAL 




CA 




t*'F1 


194 3 


2721 


37766367674 








JMR 


P»-P5 






UNC 


1944 


272? 


177*6162704 








' ,T»/p 


P>'P6 






UMC 


1945 






* tf: 


5T fop mope multtplpp wo»ns 




1946 


2723 


26537777217 


DMPfl 




OP NO 


ADD 




SP3 


DCSR 




1947 


7724 


23176777777 






SM 


TNT 




pus 


POS 




1948 


7725 


37766367672 








JMP 


D»'P4 






UMP 



COMMFNTS FRI. JU" 4, 1976, 10:11 AM 



-17 

HVERFL >28 DTCTTS 



OVERFL >?<? DTGITS 



JiJMp TF DOTE 

JUMP ik MORE WORDS NEEDED 



ADD TO ACCUMULATOR 
OMLY DOUPLE 

2ND, 3RD MPT.KP TO SP } 
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ADDRESS 



CONTENTS 



L*BL PBUS SUMS FUNC SHFT STOR SPEC SKTP 



COMMENTS 



FRl, JU" 4, 1976, 10:14 AM 



1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
195P 
1959 
I960 
1961 
196? 
1963 
19*4 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 







* TRAMSF 


product to 


STORE 


•. - PFAD RACK A 










* PAPAMFTRRS FOP STOPF 












2726 


2377160001 1 


DMP9 


s«i 


PQW 






00001 1 






2727 


16137777777 




URUS 


ADD 




PSPO 


R.n.s 




READ SIGN MASK 




2730 


37637777775 


SPO 




ADD 




PC 










2731 


37457777766 


y 




ADO 




PR 










2732 


37717777762 


/ 




ADD 




nr, 










2733 


37677777777 






ADD 




PA 










2734 


37136777775 


SPO 




TNC 




^SPO 


ROS 




PEAD MSW MASK 




273S 


2*257777777 




OPND 


ADD 




7 






»\SW «-'ASK 




27 36 


36657777777 




PR 


ADD 




PR 










2737 


35617777777 




S D 2 


ADD 




RO 










2740 


37737777777 






ADD 




FP2 






CLEAR SP2 FOP STnH 




2741 


37176777775 


spo 




TNC 




PUS 


Rns 




PEAD ADDP 




2742 


26357527317 




OP MP 


ADD 




CT»L 


HHF 


P -IS 


WD C M T TEMP. IN CTPI. 




2743 


37551430017 






POM 




X 


0017 


ODD 


X _ 'OOOF' 




2744 


37551607400 






PO^ 




X 


007 400 


X _ '0F00* 




2745 


23771600003 




SM 


RQV 






000003 






2746 


16177777777 




URUS 


ADH 




PUS 


POS 




RESTORE PR 




7747 


26322151122 




OP MP 


JSP 


1.31? 


SPO 




VFt 


T.SW HALFCL30 pnEPN'T 


ALT. Ft 


2750 


37762141077 






JSP 


T,< n 






*'1 


T..SW FULL 




2751 


37317777455 


SPO 




ADD 




5P1 


CF1 




WORD « 




2752 


14537777777 




CTRf, 


ADD 




SP3 










2753 


26742361557 




nc>Nr> 


JSP 


STO" 


PR 




UNC 


STORE PRODUCT 




7754 


26542361476 




OPN ! P 


JSR 


RSTT 


X 




uvc 


RESTORE Pl.,DL,PR,0 




2755 


377661414S3 






J MP 


TY1 1 






Fl 


OVFRFI.OW 




2756 


377*6362220 






,1HIP 


A^nr 






i.TNC 


CO M PT,ETES TlJSTP 





PAGE 50 ADDRESS CONTENTS LABL PrtUS SRUS FUNC SFFT STOR SPEC SKTP CTWMENTS FRI , .TUN 4, 1976, 10:14 AM 

1977 

1978 * THIS BRANCH EXCHANGES A & B FOp MPYD IE PB(A)<PH(B) 

1979 2757 31771537761 DMPO RC ROM 7761 MEG RANK? JUMP HERE - PC OK 

1980 2760 37766361457 

1981 2761 32437777417 

1982 2762 37657777766 

1983 2763 36257777777 

1984 2764 37757777762 
19R5 2765 14457777777 

1986 2766 25357777777 

1987 2767 35717777777 

1988 2770 01726362617 
1989 

1990 2771 14722361507 

1991 2772 332223611S5 

1992 2773 36763777760 
19*33 2774 16777772776 

1994 2775 16777772776 

1995 2776 16673377433 

1996 2-777 37766362627 



DMPO 


RC 


ROM 






7761 MEG 


RANK2 JUMP HFRF - 






JMP 


TM? 




IINC 


TR>\P PB>14 




RB 


ADD 







SF2 


SIGN /ASK 


X 




ADH 




OB 








PB 


ADD 




? 




»*SW "ASK 


Z 




ADD 




PR 








CTRL 


ADD 




np. 




WORD COUNT 




SP3 


Ann 




TTRL 








SP2 


ADn 




r-h 




WORD a 




SP1 


v l m p 


DMP1 


SP2 


MMC 


PACK Tn FETCH 


* SPECIAL 


CASF 


OF F^TCH : 


SHORTER OPERAND IN MPYO (5 WORDS) 


DMP2 


CTRL 


J SB 


FTC" 


SP? 


iwr 






Rft 


JSR 


R?D 


TT. 


UNC 


RIGHT JUST 4 LSW 


PL 


PB 


AND 








MS DTGTT 


IIBUS 


MRUS 


ADD 


SI 1 






LEFT 2 8TTS 


UBI'S 


■UR-US 


ADD 


ST 1 






*? MOPE SHIFTS 


PA 


'WIS 


TOP 




FA 


CF2 


MS DTGTT COPTKD 






,1MP 


DWP3 




live 


CONTINUE 
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ADDRESS 



CONTENTS 



L»RT. RBRS SRRS FUNC SPFT STPR S^tfC SKTP 



COMMENTS 



FRT, JUN 4, 197ft, 10:14 AM 



1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

204P 

2049 

2050 



3024 

3025 

3026 

3027 

30 30 

3031 

3032 

3033 

303A 

3035 

3036 

3037 

J040 

3041 

3042 

3043 

304d 

3045 

30 46 

3047 

30«S0 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3060 

3061 

3062 

3063 

3064 

3065 

30f>6 

3067 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3100 

3101 

3102 

3103 

3104 



34317777777 

35772577437 

36764332276 

37737773765 

01717777777 

37317777760 

35772577437 

3*764332276 

377377737*5 

01237777777 

30317777777 

35772577437 

36764332276 

37737773765 

01617777777 

31 317777777 

35772S77437 

36764332276 

37737773765 

01637777777 

32317777777 

36772577437 

367*4332276 

3773777 3765 

0165 7777777 

33317777777 

35772577437 

•3*7*43^7276 

377377737*5 

01677777777 

37751*31000 

37 31 77 77 7 77 

35777707437 

3*7*4337776 

377377777*5 

37751650000 

35772747437 

3*764337776 

373177777*5 

017 3 7 7 7 7 7 7 7 

37751607400 

35772747437 

36764^32276 

377377777*5 

01777772774 

1*777777776 

1631777*777 

37751*23420 

35737707774 



&302 

♦ THT 
*p,y 

♦ PER 
D6 



D5 



4 

S IS T 

10,000 

SUBRf) 



04 



r>3 



02 



D1 



DO 



MRUS 
PROS 



PI, 



PROS 
PBUS 



MRUS 
PROS 



(WIS 
PHI'S 



MrtDS 
PROS 



HHI'S 
PBIi'S 



HE SF 

AND 
UTTMF 

or. 

SP? 

PR 

SP1 

SP2 

PR 

SP1 

P.!) 

SP2 

PR 

SP1 

RC 

SP? 

PR 

SPl 

RR 

S^2 

PM 

SPl 
PA 
SP2 
PR 

SPl 



SP7 
PROS PR 
PB"S 

SP2 

IIRTIS PR 
PROS 

SPl 



I'P'IS 
PROS 
SPl 
PROS 



SP? 
PP 

SPl 

linos 
UhUS 



SPl SP2 



CTTOM 
TRF V 

CM.r 

ADO 

RE D N 

PVSB 

ADD 

APR 

ADll 

PEPN 

RVSP 

A On 

ADO 

ADR 

PEPN 

nvsp 

ADR 

a no 

ADR 
PFPN 

rvsr 

APR 
ADP 
ADR 

PFPf-' 
PVSR 

ton 

AI)n 

Ann 

PEPN 

RVSP 

A DP 

ADO 

PPM 

ARO 

PEPN 

DVSP 

ADR 

T'HM 

PEPN 

PVSB 

ADD 

ADR 

pom 

»EPF 

RVSB 

ADP 

ADR 

ADR 

ARO 

RO'-i 

APR 



OF CODE THAT PERFOPMS 
AST DTVTD^S BY 100 AND 



ST 1 
SP1 



SI 1 
SPl 



SI 1 

SPl 



sr 1 

SPl 



ST.l 
SP1 



ST.l 
SP] 



ST 1 



ST I 



ST 1 



SP1 



SP? 

Pi, 

SPl 



SP7 
FT 

CP1 



SP7 

SP1 



SP? 

PC 

SP1 



■ C P? 

c-R 

SP1 



SP? 
ca 
PP 
SPl 



SP? 

PR 



SPl 
SP2 
r-B 



sp? 



ST.l 
ST 1 

S'o'AP SP1 
P6 
PP? 



CF2 21 

INCT CTP'-l 



r.vi ?i 

IMCT CTRM 



CF? 7 1 
IMCT CTPM 



CF7 71 
INCT TTRM 



r^2 7 1. 
Ti'iCT GTR" 



Z.v 2 71 
T\CT CTPM 



3 1 n 

r.F2 10 

TVCT CTPM 

050000 
CF2 04 
IKCT CTRM 



2 4 
CF2 04 
TWCT CTP'1 



023420 

PSR 



THE CHAIMNER DIVIDES 
10 in GET 4 PCD DIGITS 

(SP2, w.)/iok 



RE« TO VEXT "Si/' 
STORE POriTIEMT IN PL 
(SP2,PR)/lOK 



REM TO NEXT VSV- 
STORP- OimTTEMT P' PL 
CSP2,RR)/10K 



tfE'l TO NEXT WSW 
STORF OUDTTFWT TN PD 
(SP2,RC)/10K 



RE" TO NEXT VS«' 
STORE OUOTTENT IV PC 
(SP2,RR) 



PE v1 TO NEXT MSW 
STORE Olp-)TTEf'T I *' PR,-. 
(S R 2,RA)/10K 



STORE QUOTIENT I'J PA 

100*256/2 

CLEAR SPl 



GET fC*ROO, O0A*R") 
10*2S6*16/7 

GET (RO00,OA*RC) 

MAKE(0A*RC,D00O) 
10*256/2 

GET (0RCD,000A) 

SP? _ OBCD 

A * 4 

00 AO 

SPl _ A 00 

10K 

SP2 _ ABCD 



PAGE 52 ADDRESS COMTFMTS I.ABL RHUS S«U.S FUNC SHFT STfiR SPEC SKIP COMMENTS FRI, JUM 4, 1976. 10:14 AM 

2051 

2052 *THTS SUBRCWTINF ACCFSSFS AMD CHMPL^FNTS AMOTHER WORD 

2053 

2054 

2055 3105 371071*7574 PDFT SP1 f'AD RSP1 Rf'D F2 FETCH NEXT WORD 

2056 

2057 

2058 

2059 







♦ THTS SUHRO"TINF AC( 


"FSSFS AMD 


COMPLEMENTS 


AMOTHER 






*F2 = "COMPLEMENT" 












*F1 = "TARRY TN" 








3105 


37107167574 


PDFT SP1 f'AD 


PSP1 


ROD F2 


FETC 


3106 


26737707277 


DPND ADO 


SP2 


TNCT RSP 




3107 


16767147277 


DHIIP CAD 




TNCT Fl 




3110 


16737707777 


UHIJS ADD 


SP2 


RSR 




3111 


167367071S7 


HAMS TNT 


SP2 


CTF RSB 
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ADDRESS 



CONTENTS 



LABI. PRUS SRUS FUN'C SHFT STOR SPEC SKIP 



COMMENTS 



FRI. JUN 4, 1976, 10:14 AP 



2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

20R3 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 



31 12 
3113 
3114 
3115 
31 16 
3117 
3120 
3121 
3122 

312 3 
3124 
3125 
3126 
3127 

3Pn 

3131 
3132 

313 3 
3134 
3135 
3136 
3137 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
'3157 
3160 
3161 
3162 
316 3 
3164 
3165 
3166 
3167 
3170 
3171 
3172 
3 1 7 3 
3174 
3175 
3176 



23311600007 

16767507762 

37571601752 

31771507743 

33771517771 

37766363310 

33766003306 

31766003306 

01177777757 

36177777437 

22737777632 

34766777776 

23322362060 

37762361335 

23337777777 

37767377773 

35737777776 

16766777775 

22177777572 

37237667717 

37762361 346 

35722362107 

26775022377 

37777777677 

37136777755 

32177777437 

37717777777 

57476777055 

371367777*5 

33177777437 

01337777477 

37751623420 

35117777577 

33347377777 

37602363105 

16666333260 

37762363105 

16646333251 

37762363105 

16626333240 

37762363105 

16606333225 

37762363105 

16226333206 

3776236310S 

16706003206 

37722363024 

16437777777 

34722363031 

37737777760 

35442363036 

16717777777 

30722363043 



CVBD 





SM 


POM 




SP1 


000007 


7. 


UBUS 


SUB 
POV 




PAP 


RN02 


CRRY 




RC 


ROM 






7743 


CRRY 




RA 


JMP 


TPLN 




7771 


"CRY 

UAJC 




RA 


J MP 


PP7J; 






ZERO 




RC 


JMP 


BDZT, 






7E»0 




SP1 


Apn 




BUS 


WPS 






PR 


ADO 




PUS 


DATA 




RB 


DB 


ADD 




SP2 


CLO 




"BUS 


DL 


RNPT 












SM 


JSB 
JSP 


CK AP 
FPI C- 


SPO 




UNC 
UMC 




S M 


ADO 




SPO 






RA 




CAO 










UBUS 


SP2 


ADO 




SP2 






SPO 


UBUS 


PNDT 










RB 


DP 


ADD 




PUS 


ROD 








ADO 




PTi 


C<"C- 


»'PP7 






JSP 


SPT,T 






UMC 




SP2 


JSP 


MSKA 


SP2 




I.WC 




OPWD 


CPS 

ADD 


SI 1 




LBF 

~cl 


FVFN 


SPO 




TNC 




BSPO 


WPS 






RB 


ADO 
A On 




PUS 
PL 


DATA 




SPO 




TNC 




«;m 


CLSP 




SPO 




INC 




"SPO 


W P S 






RA 


A On 




PUS 


DATA 






SP1 


Ann 




SPO 


SF1 








POM 




TB 


02 3 420 




SP2 


M.'U 




rspi 


POO 






R'i 


CAP 




CTRL 










JSB 


BDFT 


PD 




UMC 




UBHS 


JMP 
JSB 


R-niv 
RnfrT 


RA 




CTPM 
UMC 




UBUS 


JMP 
JS 1 * 


H^2V 
P, r* y T 


PB 




CTRM 
UMC 




UBUS 


JMP 
JSB 


Br,3w 
BPFT 


PC 




CTPM 
U NC 




U«US 


JMP 
JSB 


BD4W 
BDFT 


FD 




CTPM 
UMC 




UBUS 


JMP 

JSB 


BP5V 
BPFT 


PL 




TTRM 
UMC 




URUS 


JMP 


B05W 


DIj 




ZERO 






JSP. 


Df 


SP2 




UMC 




UBUS 


ADO 













OL 


JS^ 


D5 


SP2 




UNC 


PL 




ADD 




SP2 








SP2 


JSB 


D4 


DB 




UMC 




URUS 


ADD 




n, 








RP 


JSB 


D3 


SP2 




V'iC. 



FINAL SM + 3 FOR CK.AB 
STOV 



SAVE PP AT SM'+3 
OMSW 



WCNT - 1 

OLSW 

FETCH msw 

ZERO PI, FOP CB1 , 2A 

SPLIT STACK? 

RENEW SP2 TF SPLT MODIFIED 

F-2 = '"MFCATIVE" 

SET *-.'E«ATIVE ST CM 



ZERO DL FOR BD1W 



SAVE 3A IM SPO 

FETCH LSW 

fTBL _ - (WD C M T +1 ) 
ZEP'l RD FOR BD1 , 2,3W 
FIX RA.'JN'P IF CMT=1 

FTV PBjJMP TF CNT = 2 

JMP IF CNT=3 

JMP IF CMT=4 



, 01. , PL , RD , RC , R B . R A / 1 K 
FIRST RESULT WORD 
nL,PL.RD,RC,PB,RA/10K 
PL.RD,RC,R«, D A/10K 
SECOND RESULT WORD 
THTRO RESULT WORD 
PD,RC,PB,RA/10K 
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ADDRF 


2114 


3177 


2115 


3200 


2116 


3201 


2117 


3202 


2118 


3203 


21 19 


3204 


2120 


3205 


2121 


3206 


2122 


3207 


2123 


3210 


2124 


3211 


2125 


3212 


2126 


321 3 


2127 


3214 


2128 


3215 


2129 


3216 


2130 


3217 


2131 


3220 


2132 


3221 


2133 


3222 


2134 


3223 


2135 


3224 


2136 


3225 


2137 


3226 


2138 


3227 


2139 


3230 


2140 


3231 


2141 


3232 


2142 


32 33 


214 3 


3234 


2144 


3235 


2145 


323ft 


2146 


3237 


2147 


3 2 40 


2148 


3241 


2149 


3242 


2150 


3243 


2151 


3 2 44 


2152 


3245 


215 3 


3246 


2154 


3247 


2155 


3250 


2156 


3251 


2157 


3252 


2158 


3253 


2159 


3254 


2t60 


3255 


2161 


3256 


2162 


3257 


2163 


3260 


2164 


3261 


2165 


3262 


2166 


3263 


2167 


3264 


2168 


3265 



LARL PBUS SRUS FUNC S"FT STOR SPEC SKIP 



COMMENTS 



FRI. JUM 4, 1976, 10:14 AM 



16237777777 
31722363050 
16617777777 
32722363055 
16637777777 
37722363055 
16646363266 
37777417760 
37766363225 
37722363031 
37737777760 
35422363036 
16457777777 
30722363043 
16717777777 
31722363050 
16237777777 
32722363055 
16617777777 
37722363055 
16637777777 
33646*63265 
30766003240 
37722363036 
16437777777 
30722363043 
16457777777 
31 7 22 36 3050 
16717777777 
32722*63055 
16237777777 
33722363062 
16606363263 
31766003251 
37722363043 
16437777777 
31722363050 
16457777777 
3?7223630 c .5 
16717777777 
33722363062 
16226363263 
32766003260 
37722363050 
16437777777 
32722363055 
16457777777 
33722363062 
16706363263 
37722363055 
16437777777 
33457777777 
37637777777 
37657777777 
37677777777 



BP5W PL 



PL 



R D 4 W 



BD3W 



FM)2W 



BD1 W 



BDEC 



BDEA 



unus ADD 

^C JSR 

UR"S ADO 

P.R JSP 

UNUS ADD 

J SB 

UIUJS J MP 

ADD 

J MP 

JSB 

ADH 

SP2 JSR 
(PUIS ADO 
RP JSR 
URUS ADO 
PC vTSB 
URUS ADn 
RB JSR 
URUS ADD 

JSR 
UR"S APR 
RA JMP 
pn JVP 

JSR 

uRtis Ann 

RP JSR 

hrus Ann 

PC JSR 

'inns Ann 

RP JSR 

urils AD" 

RA JSR 

unus jmp 

RC JMP 

JSR 

URUS Ann 

RC JSB 

URtis Ann 

PR JSR 
URUS Ann 
RA JSR 
URUS JMP 
PR JMP 
JSP 

urus Ann 

RR JSR 

urus adp 

RA JSR 
URUS JMP 
JSR 
URUS ADO 
PA ADD 

Ann 

ADD 

Ann 



D2 

ni 
ni 

RPF.v 
BP4W 

ns 



P4 



P3 



n? 



pi 



ni 



n3 



v> 



ni 



n2 



m 



FL 

S?2 

PD 

SP2 

PC 

SP2 

PR 



SP2 
SP2 



PR 

SP2 

PL 

SP2 

PL 

SP2 

pn 

S p 2 

PC 

BPP"* PR 

PP3'> 

D4 *P2 


SP2 
r^B 
SP2 
PL 
SP2 

r I. 
DO ^P? 

bdec pp 

BP2V 

P3 SP2 


SP2 

PR 

5"P2 

PL 

no ?p? 

BPEC PL 

n2 SP2 

p 
D1 SP2 

DO SP? 
»PEC PL 
01 SP2 
O 

TB 
PC 
VR 
PA 



IMC 

"MC 

IT NC 

"NC 

PZRO 

UMC 

UMC 

"MC 

"MC 

II.JC 

PMC 

"NC 

"NC 

ZERO 

UMC 

UMC 

! WC 

"MC 

"NC 
HWf 
7 FRO 
"MC 

UMC 

IMC 

"NC 
UMC 
ZERO 
"NC 

UMC 

"Mr 
UMC 
"MC 



FOURTH RESULT WORD 

RC.RB,PA/10K 

FIFTH RESULT WORD 

RI3,RA/10K 

SIXTH RESULT WORD 

0,RA/10K 

7TM RESULT WORD;RA HAS 8TH 

.TMP TF PL = 

0,PL,Rn,RC,RR,PA/10K 

PL, Rn,BC»PR,RA/10K 

FTPST RESULT WORD 

SECOND RESULT WOPD 

Rn,RC,RB,RA/1 OK 

THTPn RESULT WORD 

RC,RR,RA/10K 

FiJHRTH RESULT WORD 

PB,RA/10* 

FIFTH RESULT WnRP 

, R A / 1 K 

6TM RESULT WORD;PA HAS 7TM 

25TH DIGIT TO RR 

JMP TF RD=0 

O,RI>,RC,RB,RA/10K 

FIRST RESULT A/nRp 

SECOND RESULT WORD 
PC,RR,PA/10K 
TH[RD RESULT WORD 
PR,RA/10K 

FOURTH RFSULT WORD 
GET 4 DIGITS FRO" RA 
FIFT" RESULT WfiRP 
IMP TF RC = 
0,RC,RB,RA/10K 
FIRST RESULT */ORD 
PC,RR,RA/10K 
SECOND RFSULT WORD 
PR,RA/10K 
THTRn RESULT dORP 
GET 3 D in ITS FROM 
FOURTH RFSULT WORD 
JMP TF RBrO 
O,RB,RA/10F 
FIRST RESULT /JORD 
RB,RA/1 OK 

SECOND RFS"LT WORD 
GET 2 DICITS FRO** 
THTRn RFSULT WORD 
0,RA/10K 

FIRST RESULT 'aJPRO 
CET OME DIGIT PROM 
CLEAR PC 
CLEAR RB 
CLEAR RA 



RA 



RA 



RA 



GET 


PB 






TS 


X = 


'0E00';! 


SE 1 


MO, 


TS 


•OOOF' 




IS 


X = 


'OOOF'? 




NO, 


TS 


'OFOO' 




RESTORE 


fift 




RESTORE 


WD-CNT 


-A 
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7169 3266 23771600003 BDEN 

2171 3270 37777427426 X ADD Ch? EVEN TS X = 'OFOO'JRRT LONG 

2172 

2173 

2174 

2175 3274 37317777775 P p 

2176 

2177 

2178 

2179 

2180 3301 37766143315 JMP TR13 F1 -TUMP TF OVERFLOW 

7181 3307 00761400070 BFOP 

2182 

2183 

2184 

2185 3306 37762361374 MDZt, 

2186 

2187 3310 17762361374 TPLP 

2188 

2189 

2190 3313 37531600017 TE17 

2191 

2J92 3315 37531520013 TBI 3 P0« SP3 001 < PMS E\fERYTHI"G APPEAL RFSTOREH 

7193 3316 3753160O011 Tfr'M 

7194 3317 24777777777 TBUT 
7105 3370 16777527616 PBUS 
7196 
2197 



ADDRESS CONTENTS 


3266 


23771600003 


3267 


16177777577 


3270 


37777427426 


3771 


25722361027 


3272 


37777437446 


3273 


25722361 122 


3274 


37317777775 


3275 


35537777777 


3776 


26757777777 


^277 


377223615S7 


3 300 


26517361476 


3301 


37766143315 


330? 


00761400070 


3 30 3 


23771777776 


3304 


16471777776 


3 305 


37777757777 


3306 


37762361 37 4 


3307 


37766363302 


3310 


37762361374 


3311 


375 31600016 


3312 


33771507771 


3 313 


37531600017 


3314 


37766363317 


3315 


3753152001 3 


3316 


3753160O011 


3317 


24777777777 


3320 


16777527616 


3 321 


37571603134 


332? 


37766363302 



SM 


POM 






000003 


UBUS 


ADD 




PUS 


ROD 






ADD 






QV7 


EVEM 


S&3 


JSB 


LID 


SP2 




UNC 




ADD 






CF1 


ODD 


SP3 


JSB 

ADD 


T.3P 


SP? 
SP1 




PNC 


SP2 


A QH 




SP3 






OPNP 


ADD 




F-B 








JSB 


STOP 


SP? 




I IMC 


OP NT) 


JSB 


PSTT 


X 




ni\jr 




JMP 


TR13 






F1 


CTR 


POMN 






0070 


7EP0 


SV 


DQM 






177776 


UBUS 


POM 




PM 


177776 




ADD 








NEXT 




JS" 


PSHP 






HMC 




JMP 


PPQP 






UNC 




JSB 


P S H » 






PMC 




POM 




SP3 


0O0016 


»A 


POM 






7771 


CRPY 




POM 




SP3 


000017 




JMP 


TRUT 






UNC 




P0 M 




SP3 


001 < 


pns 




POM 




SP3 


0O0O14 


ST A 


ADD 










UBUS 


ADD 


ST 1 




snv 


PUS 




P0 M 




PAR 


TPPO 






JMP 


Rrru 






PMC 
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ADDRESS CONTENTS 



LABI, RHUS SBUS FUNC Sf'FT STOR SPEr SKTP 



.CilMMFMTS 



FRI. .TIW 4, 1976, 10:14 AM 



2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
221 1 
2212 
2213 
2214 
22! 5 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
722P 



3321 
3324 
3325 
3326 
3327 
3 330 
33 31 
3332 
3 333 
3334 
3335 
3336 
3337 
3340 
3141 
3 342 
3343 
3344 
3 3 45 
3 346 
3347 
3350 
3351 
3352 
3353 
3 35 4 
3355 
3356 
3 357 
3360 



23311600007 
16767507762 
37571601752 
23322361374 
32771517743 
377663634*2 
37336777635 
37767377232 
32657777776 
172060034*7 
37762362062 
24762131 146 
011777775-77 
37522362041 
30777667377 
35762361346 
16137577577 
26537771777 
37307377774 
37351777773 
3761177776* 
32777427777 
26737765457 
26737767457 
17351777775 
37136777575 
37657777777 
33766033361 
3571777*277 
16766361365 



CVDA 





SM 


POM 




SP1 


000^07 


z 


UBMS 


SUB 

ROM 




PAP 


8H02 


CRRY 




SM 


JSR 


PSHA 


SPO 




UNC 




RB 


POM 
.IMP 


TCI 7 




7743 


'JCRY 
UMC 


SPO 




TMC 




SPO 


CT.O 




PB 




CAD 






DCSR 




UBUS 


RB 


ADO 




RH 








SHUS 


.IMP 
JSP 


crop 

CKA* 


PUSH 




ZERO 
UMC 




STA 


JSP 


SPIT 






f'EG 




SP1 


Ann 




RUS 


ROD 








JSB 


C*B' 


SP3 




UNC 




PD 


ADD 






DBF 


vpRV 




SP2 


JSB 


Sri.T 






I'MC 




UBUS 


ADO 




PSPO 


ROD 


NF2 




npwn 


ADD 


U.Z 


SP3 






SP1 




TAD 




SP1 










POM 




CTPT, 


177773 






POM 




or) 


177766 




RR 


ADD 








FVFN 




nPND 


ADD 


RT.Z 


SP2 


CF1 


11 Mf" 




OPND 


ADD 




SP2 


CF1 


ufjr 






POM 




rTRL 


177775 


SPO 




TWC 

ADD 




PSPO 
PR 


ROD 






RA 


JMP 


DP 1 






nop 




SP? 


ADD 


S'/AP 


SP? 


l"CT 






UBUS 


JMP 


L'f 2 






PMC 



SET SP1 FOR CKA' 



RA:SAD«RR:TCfcT:RC:TAO 

>28 

>28 

SPO _ S-3 POP BOUNDS T5TS 

DEC. SR FOR FOLLOWING PUSH 

FIX A DIGIT CAJT FOP COVS 

JUST SDEC IF ODD RB=0 

A:DCMT?B:SAD;C:DCNT*2;D:TAD 

FETCH FIRST TAPGF'T KiiHRD 
CLFA" SP3,*CHFCK «-PMns 
F2= H FrRST ASCIT TM PTGHT" 
FIX SP? IF SPI.TT STACK 
FETCH ISTySP? OK EITHER WAY 
SP3 _ GARBAGE RYTE IF F2 
HECR SP1 FOR LAT^'P. I\'C» 
CMTR _ -5 

-10 USED FOP VAT, I PITY 
IS SAD EVEN? 

SP?_ (a 'ED RCD BYTE IN LEFT 
C^JTR _ -3 TF R* ODD- 
GET NEXT SOUPCF a'OPD 
CT.FA" nn(»J"M-ZFRP FLAG) 
MOTE: TF JMP;l!RUS=SP2;SL4 

NOTE: IP JMP;tlRHS = SF2;SL8 
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2729 

2230 * I ;J T ^F MAIN PORTTHr HE TUTS INSTRUCTION 

2231 * RA = DIGIT COUNT 

2232 * R P = 'NON-ZERO DTGIT STORED' - (NHT CCE) 

2233 * PC = SELECTED BCD DTCTT 

2234 * Rp = %177766 (-101 

2235 * SPO = OPCI) 

2236 * SP1 = PASOTT 

2237 * SP2 = BCD WORD (FnTMES) 
223R * SP3 = THAT WMTCH T.S STORED 
22 39 * F? = 'RIGHT ASCII BYTE* 
2240 * Fl = 'ILLEGAL DIGTT' 

2741 3361 16775372777 DAI MRUS GPS ST 1 

2242 336? 16775377777 UBUS OPS ST.J 

2243 3363 16775377777 UBUS CPS SI 1 

2244 3364 16735377777 UBUS CRS ST 1 ?P2 

2245 3365 16621400017 DA2 UBUS Rn«M PC 0017 ZERO 

2246 3366 16657777150 RD UBUS ADD PB CTF THIS LINE IFF PIGOO 

2247 3367 25531600060 sr>3 POK SP - * 00006O 

2248 3370 37766143443 JMP TC15 Fl 

224Q 3371 37667017273 PA TAn T. A INCT *ZRO nidir PNT -1=0? 

2250 3379 37766363405 .J»P DM UNP PROCESS KIGM 

3373 2^533167411 R C SP3 TOR SP3 SE2 F2 RIGHT ASCII BYTE ? 



3374 16766363400 "BUS vTmp PA3 UMC NO. SKIP NEXT SECTION 

3375 01116777557 SP1 INC nSPl WPD WRITE IT 

3376 25177777437 SP 3 ADO PUS DATA 

3377 375^7777437 ADO «:P3 ~F2 CLEAP SP3 FOP NEXT PASS 
3400 16537736777 QA3 URUS ADO SV.-JRP SP3 CTP* SOURCE *in«n FP'TSHED ? 



2257 3401 35766363361 SP2 J**P DM CMC NO,GO TUCK 

2258 3402 37351777773 POM CTRL 17777^ CNTR - -5 

2259 3403 37136777575 SPO TNO t SPO ROD 

2260 3A04 26776363361 OPNO JMP DM SP? UNf I, OOP 
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ADDRESS 



CONTENTS 



LABI. RBHS SBUS F'JNC SPFT RTOR SPEC SKTP 



COMMENTS 



F"»I. JUn 4, 197*, 10:14 AM 



2261 
2262 
2263 
2264 
2265 
2266 
?267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
22R7 
2288 
22R9 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
229R 
2299 







* 


PROCESS s 


TG'>' 






3405 


35737770717 


!)A4 


SP2 


ADO 


I. P'/. 


SP? 


ccr, 


340ft 


01176777577 




SP1 


JNC 




PMS 


POD 


3407 


00761410100 




TTR 


ROMfi 






100 t.'7P.J 


3410 


35731047417 




SP2 


co"T 




5P7 


7417 msmr 


3411 


257*6363426 




5r>3 


.IMP 


DA6 




!JMC 


3412 


25777777677 




SP3 


ADn 






err, 


3413 


25531600031 




S"3 


PHM 




SP3 


000031 


3414 


35771440040 




SP2 


PlIM 






004^ ns^e 


341S 


37766363423 






JMP 


[IPS 




uur 


3416 


25531777747 




SP3 


POM 




SP3 


177747 


3417 


37777777717 






A DP 






CCC 


3420 


00761^00040 




CAP 


P[W 






0040 ZERO 


3421 


37766363426 






JWP 


rin 6 




unc 


3422 


25531600020 




SP3 


POM 




SP3 


000^20 


3423 


31766013426 


DA5 


pr 


JMP 


PA6 




K'ZRO 


3424 


25531430064 




SP3 


PHM 




SP3 


0064 non 


342* 


16771600007 




imtrs 


R0» 






000007 


3426 


16537777771 


DA6 PC 


HRUS 


APO 




<=P3 




3427 


37766163433 






JMP 


L ■' 7 




F2 


3430 


25537775777 




5P3 


ADD 


PT 7 


SP3 




3431 


26777774777 




OPNO 


ADO 


PRZ 






3432 


25537777776 


t'RI'S 


St> 3 


APP 




FP3 




3433 


01 176/775^7 


DA7 


SP1 


TNf 




PKS 


WPP 


3434 


25177777417 




SP3 


A0r> 




PI'S 


DATA 


3436 


3777741 7777 




PR 


ADD 






''/.Pn 


3436 


37777777737 






Ann 






tcf 


3437 


00761400020 


CPnr- 


CTR 


POMM 






0020 7FR'l 


3440 


23771777776 




S" 


PDM 






177776 


3441 


37467357776 


i'BPS 




ran 




<5 W 


f-KX f 


3442 


37531620017 


rr\ 7 




F ()v 




FP3 


^017 P'JS 


3443 


37531600015 


TC1S 




PO'-' 




c[>3 


000^1=; 


3444 


24 77777761 7 




STA 


Ann 






snv 


3445 


16777522 7 76 


MBUS 


IKHIS 


ADO 


ST 1 




pns 


3446 


37571603134 






RDM 




Pftr. 


TRPO 


3447 


37766363437 






JMP 


CPtIP 




PMC 



SIGf! DTGTT TH PT AYTF 

PRKFFTf'H LAST TA»G rtORn 

•UT 9 r lF CIR 

ABS SIGN ? (OOFX?) 

1 HR 2 ovnn JMP;i1BHS = SP3 

SP3 _ X,M11 CAKES MFC) 
MEf= SIGM? (SP2 = %177737?) 
SKTP NEXT SECT. TF NEG STG*' 
PFSTORF *60(ABS) 

'■UT 10 OF CIP 

ASSUME ABS IF MT >»EG;U = SP3 
SP3 _ X.%100 (MAKES POS) 
1<=Rr< = 9;lF Jup.PBns = S£>3 
MAKE SP3=X.%l6J(+)nR%1 75f-t 
TF + %164f>) .MAKE %173 

TF RIGHT BYTE. JUST ST09E 



AMY t:-|.M-7,ERn PTGTTS? 



SOFC BY 7 
Si)FC BY 1 MOR> 
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ADDRESS 



CONTENTS 



LA8L PBUS S»M»S F'UMC SHFT PTOR SPEC RKTP 



rOMMENTS 



FRI, JUN 4, 1976, 10:14 AM 



2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

23^1 

2342 

2343 

2344 



3450 
3451 

3452 

3453 

3 454 

3455 

3456 

3457 

3460 

3 461 

3462 

3463 

3464 

3465 

3466 

3467 

3470 

3 471 

347? 

3473 

3474 

3475 

3476 

3477 

3500 

3501 

350? 

3503 
3504 
3505 
3506 
3507 
3510 
3511 
3512 



2331.1600007 
16767 e in7762 
37571*01752 
33771517743 
37766363764 
33766003776 
23136777757 
30177777437 
225377776M 
34766777776 
37762362037 
37762363753 
01766777775 
37136777755 
31 177667437 
37762361 346 
37762362124 
32302361332 
14722361507 
23177777777 
26757777777 
01775373317 
25337557177 
37762361064 
3717777^635 
?634?151 155 
37331623420 

14771527773 
37726363701 
147716277*6 
37726363661 
14771627757 
37726363635 
14771527755 
37726 363574 



* COMV 
CVDB 

7 



DEC TO 
SM 
UP. UP 



RA 

RA 
SM 
RO 
OB 
DT, 



RC 
UBUS 



SPO 
PPO 



BTM 
POM 
SUP 
POM 
POM 
JMP 
J MP 
7NC 
ADD 
ADP 
BNHT 
JSP 
JSP 
P. NOT 
TNT 
ADD 
JSB 
JSPi 
JSB 
JS n 
ADD 
ADO 
CPS 
A DP 
JSP 
ADD 

OPNP JSP 
POM 
* MFXT BRANCH APCriR 

CTRL FDM 
JMP 
PHM 

JV»p 
PIJM 
J M P 

CTRL, POM 
JMP 

NEVER CHA 

RF STOP EH 

10K 

DP 4 

rtHfc CCE 

D^4 

WHPD ADDP 



SP1 



PC 



RB 

CTRT, 

SM 

opnd 

SP1 
SP.3 



TD17 

DPZT 



CKRn 

DPwr 



SPI.T 
MPKR 
FRF* 
FTC" 



>po 



SP1 
PAP 



PSPO 

PUS 

PP3 



PSPO 
PUS 



C T PI, 

RP 

CTRT, 



Z & 

PB 

SPO 

PP1 

SP? 

PP3 

OP MP 



y- 



SP1 
P1D 

R3D 

PT M G 

DPiaM 

P»W? 

DP4S 

DP 4P 
rv'GFP 



FSP 



000007 

CRRY 
BfcO? 
7743 



PP1 
S D ? 

PUP 
PH 

FPO 

RHP 

fTPI, 

ppr> 
TP TA 

PP2 

PP2 

PP2 

PP2 



WRS 

DATA 

Cl.n 



WPS 
DATA 



pop 



NCPY 
IIMC 

ZEPfl 



TINC 



Mppv 

! T WC 
UMC 
UMC 



UPF 

CF3 MF1 

»TMC 
OPNP 

ME I 
0?34?0 
PGFT KM 



7773 
7766 
7757 
7765 



POP 

UNC 

POP 
>MC 
FTP 
"NC 
pns 
UNC 



WML SM + 3 

PTOV 

DIC n > 28 

DIG # TRAP 

SAVE PD 
— « — 

TARGET « 
I.QW MOUMn 
rOMMTvl TESTS 
RETURNS fflf.pw I 1 



P P 1 



HIGH unUMD ;SLOwI RSB 
WRITE S-7 

SAVF PC 



GET MASKS 

FRFE REGS PHORT/POK'G 

r,p;T pnnpfE 

PIG « TO OPND TO CTRT, 

REPTORE PB 

E1="SIGN MASK IS 000F" 

(0^3 FOP DCAD)PP0_«A 

1 DIG TO RlGHT(WOM'T AT.T.E1 

op^JD G^TP wnp[) -a 

3 PIG tq RTG«T(MAY ALT. PI) 

1 i)K FOP fO M V 

-S 
nir: <t<5 t WORD 
-to 

DrO*<10 2 'JOPOP 
-17 

DIG <<1.7 4 WORD SHORT 
-19 
DIG «<19 4WQRDS PONG 
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ADDRESS 



CONTENTS 



LABT. PBUS SBIIS FUMC SHFT STOR SPEC SKIP 



COMMENTS 



FPI, JUN 4, 1976, 10:14 AM 



2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2359 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
23RI 
2382 
2383 
2384 
23P5 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 







* 6 WORD 


CASE 1 


NEXT 










3513 


37737777777 






ADD 




SP2 






3514 


32302362335 




RB 


JSB 


D^P 


SP1 




UNC 


3515 


16677777777 




UBUS 


ADD 




PA 






3516 


31302362335 




RC 


JSB 


D4P 


SP1 




UNC 


3517 


37762363745 






JSB 


DRM1 






V'tC 


3520 


30302362335 




PD 


JSB 


D4B 


SP1 




UNC 


3521 


37762363737 






JSP 


DP"2 






UNC 


3522 


37777777760 


PL 




ADR 










3523 


16302362335 




unus 


JSP 


D4P. 


SPJ 




IMC 


3524 


37762363731 






JSP 


DPM3 






UMC 


3525 


34302362335 




DT, 


JSP 


D4P 


SP1 




UMC 


3526 


37762363723 






JSP 


DPV4 






UNC 


3527 


22302162335 




on 


JSP 


D4P 


SP1 




UMC 


3530 


3776236*715 






JSR 


DPM5 






UNC 


3531 


21302362335 







JSB 


D4B 


SP1 




nwc 


3532 


37762363707 






JSR 


DRM6 






UMC 


3533 


03777437017 




PBR 


ADD 






ABS 


ODD 


1534 


37766363551 






JMP 


DR6A 






UNC 


3535 


22447507777 




DM 


SUP 




np 




CRRY 


3536 


34707167457 




Dl, 


ran 




r>L 


CF1 


vie 


3537 


34707777157 




or, 


SUP 




DL 


CTF 




3540 


37777547760 


PL 




/on 








Fl 


3541 


16227367777 




UBUS 


ran 




PL 




UMC 


3542 


16227507777 




UK us 


SU3 




PL 




rPRf 


3543 


30607^67777 




PD 


CAP 




FD 




UMC 


354A 


30607507777 




RO 


S U M 




r-D 




TRRY 


3545 


31627367777 




RC 


CAD 




PC 




UMC 


3546 


31627507777 




Rr 


SUM 




RC 




CRPf 


3547 


32647367777 




rr 


CAD 




PB 




T TMC 


3550 


32647777777 




RP 


SUP 




PR 










* STORE 6 


«jnpn 


PTHAPV 








3551 


26137777557 


DB6A 


flPND 


ftpr> 




F SPO 


wpn 




3552 


32177777417 




RB 


ADD 




PUS 


DATA 




3553 


37136777555 


SPO 




TNC 




RSPO 


wpn 




3554 


31177777437 




PC 


ADO 




PUS 


DATA 




3555 


37136777555 


SPO 




IMC 




PSPO 


WPP 




3556 


30177777437 




PO 


ADD 




PUS 


DATA 




3557 


37136777555 


SPO 




TNC 




PSPO 


WRD 




3560 


37177777420 


PL 




ADD 




PUS 


DATA 




3561 


37136777555 


SPO 




TNC 




PSPO 


WPD 




3562 


34177777437 




nr. 


ADD 




PUS 


DATA 




3563 


37176777555 


SPO 




INC 




PUS 


WPO 




3564 


22177777437 




DP 


ADO 




PUS 


DATA 








* CVDR COVPT.Ef 


ION PART - 


SETS 


CCE ■ 


IF 


3565 


35777417777 


DBEN 


SP2 


ADD 








NZPH 


3566 


17777777717 






ADn 






CCE 




3567 


377*2171476 






JSP 


PSTT 






*'F2 


3570 


00761400020 


opop 


CTR 


POMN 






0020 


ZFRO 


3571 


21471777777 




SM 


RDM 




SM 


177777 


3572 


16471777776 




unus 


RDM 




SM 


177776 


3573 


37777757777 






ADD 








NE'XT 



CLFAR SP2 FOP 6 v'O CASE 
COMV MS 4 DIGITS 
4 DIGITS. CONVERTFD 
COMV NEXT 4 DIGITS 
COMB WORDS 1,2 
CONV 3RD WORD 
COMB WORDS 1,2,3 

CO*»V 4TH WORD 

COM3 WORDS 1,2,3,4 

COMV 5TH WORD 

COMB WORDS 1,2,3,4,5 

COMV 6TH WORD 

COMB WORDS 1,2,3,4,5,6 

COMV 7TH WORD 

COMPLETE CflNVERSTOM 

TF SIGN - ABS=1 

POSITIVE SKTP COMPLEMFMT 

COMPLEMENT 



(SP2) ,RESTORF PEGS.SDEC 
SP2=0 IF RESULT =0 

PESTORF PL,I)L,DB,0 IF LONG 
SDEC=2 
SDEC=1 
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AODRESS CONTENTS 


2398 


-■ 




2399 






2400 


3574 


30302362315 


2401 


3575 


16677777777 


2402 


3576 


37777777760 


2403 


3577 


16302362315 


2404 


3600 


37762161745 


2405 


3601 


34302362315 


2406 


3602 


37762363737 


2407 


3603 


22302362.115 


2408 


3604 


37762363711 


2409 


3605 


21302362335 


2410 


3606 


37762363723 


2411 


3607 


37617777760 


2412 


3610 


30637777777 


2413 


3611 


31 657777777 


24J 4 


3612 


32677777777 


2415 






*** WARMTNC; 


( 2) *** RRR CONFL 


2416 


3613 


03777437017 


2417 


3614 


3776636.1674 


2418 


3615 


10607507777 


2419 


3616 


11627367777 


2420 


3617 


31627507777 


2421 


3620 


32647167777 


2422 


1621 


32647507777 


2423 


1622 


33667167777 


2424 


3621 


33667777777 


2425 






2426 


1624 


261 37777557 


2427 


3625 


33177777417 


2428 


1626 


37116777555 


2429 


3627 


32177777437 


2430 


3630 


37116777555 


2431 


1631 


31 177777417 


2432 


3632 


3^176777555 


2433 


3611 


30177777417 


2434 


.1634 


37766363565 


2435 






2436 


3635 


17766161650 


2437 


16 36 


37777777760 


2438 


3637 


16302362335 


2439 


3640 


16677777777 


2440 


3641 


34302362335 


2441 


164"? 


37762363745 


2442 


3643 


27302162315 


2443 


3644 


37762161737 


2444 


3645 


21 302367335 


2445 


16 46 


37762363731 


2446 


3647 


3776636361 1 



LARL R9UR SUMS FUNC SMFT STOR SPFC SKTP 



COMMENTS 



F»T, JUM 4, 1976, 10:14 AM 



* 4 WORD 
RR4L 

PL 



result - i.nwr, pip # 17 or 



RR 
U1 US 



D4B 



WITH 
RRW1 



UBUS 



OL 



OR 



PL 

RD 
PC 
RR 
P A » T 

PRFFFTCH 
RBR 



P4R 

DPM 

P4R 

DBF 7 

D4B 

DPMI 

D"B 

DBM4 



♦qfORE 
DP 4 A 



* 4 
DB4I 



JSP 

Ann 
AOn 
JSB 
JSB 
J SB 
JSP 
JSB 
JSB 
JS« 
JSP 
A On 
ann 
Ann 

API.) 
OF 4 WORD 
ON TNSTR 

ado 

■ TMP 
SUB 
TAD 
SUB 
CAP 

sim 

TAP 

SUB 

Rt-'SPLT 

app 
Ann 

IUC 
ADD 
TMC 
Ann 

1 wc 

ADD 
jyp pp-F*. 
WORD CASF - SP70 7 



SP1 

PA 

SP1 
SP1 
SP1 
SP1 



FD 
FC 
PR 
PA 
CASKS 
FNTPY 



PB4A 



SPO 



SPO 



SPO 



RD 
PC 
r>r 
RB 
RB 
PA 
RA 
WORD 
DRNP 
RA 

RB 

RC 
RD 



PL 



UBUS 
UBUS 
nL 

PR 



J MP 

Ann 

JSB 

A Of) 
JSB 
JSB 
JSB 
JSR 
JSB 
JSB 
JMP 



pn4P 
4 P 

n<»B 

DPMI 

D4» 

PFM2 

D4P 

DPMI 

DRW 4 



PC 
t-C 
PB 
PB 
RA 
f- A 

p. SPO 

PUP 
BSPO 

c us 

PSPO 

PUS 
PUS 
PUS 



?P1 

PA 
SP.1 



PI 



FP1 



APS 



18 
UNC 



t'MC 
PMC 
BMC 
UNC 
UMC 
IMC 
UNC 
UMC 



nnn 

CRPY 

UNC 
CRPY 
UNC 
CRR* 



jvpn 

DATA 

b-BD 

DATA 

DATA 
W P D 
DATA 



B'JC 

F2 

PMC 

U^C 
UNC 
UMC 
U<\iP 
UNC 
IPfC 
UMC 



cnvv *s wnwn 4 digits 



cn»jv 


2un WORD 


chmb 


wnRns 1,2 


nwy 


1RD WORD 


COMB 


WORDS 1,2,3 


CO'JV 


4TH VORD 


CO'<R 


ririRDS 1,2,3,1 


TOW 


5TH WORD 


PO'iPI 


. COMV. 



SHIFT LEFT 1 -W 



FOR STCN - ABS=1 
POSTTTVF SKIP CO^PL 



CO'MOM COMPLETE 

TF RA,"BiRC,KD 

BL,DT.,DB,Q CASF 

COUV 2MP WPRn 
CO"'B WORDS 1 ,2 
CfP'V 3RD rtORP 
COBB WORDS 1,2,3 
CONV 4TH tfORP 
COMPLETE CONV 
COMMON 4 WORDS 
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ADDRESS 



CONTENTS 



LARL ROUS SBUS FUUC SHFT STOR SPEC SKTP 



COMMENTS 



F»T. JUN 4, 1976. 10:14 AM 



7447 

2448 

7449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

7461 

2462 

2463 

2464 

2465 

2466 

2467 

7468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 



3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3660 

3*61 
3662 
3663 
3664 
3665 
3666 
3667 
3670 
3671 
3*72 
3673 

3674 
3675 
3676 
3677 
3700 

3701 
3702 
3703 
3704 
3705 
3706 



33302362335 
16677777777 
323023623^5 
37762363745 
31302362335 
37762363737 
30302362335 
37762363731 
37766363613 

32677077777 
37766363770 
31302362335 
377623637^5 
30302362335 
37762363737 
03777437017 
37766363674 
31627507777 
32647367777 
32647777777 

26137777567 
32177777437 
37176777555 
31177777437 
377*6363565 

30302367335 
03777427017 
25527777777 
26177777557 
25177777437 
377*63635*5 



* 4 WORD i 


RA,RB, 


,pc,pn 










r>H4n 


RA 


JSB 


D4B 


SP1 




UNC 


CONV MS WORD 




URUS 


AD" 




PA 










PR 


JSB 


V&E 


5P1 




UNC 


CONV 2ND WORD 






JSR 


nnM1 






UNC 


COMB WORPS 1,2 




RC 


JSB 


D4P 


SP1 




UNC 


CONV 3PD WORn 






JSR 


DPV'2 






UNC 


CO M B WORDS 1,2,3 




RO 


JSP. 


P4B 


SP1 




U-iC 


CONV 4TH WORD 






JSB 


DP.M3 






UNC 


COPLETF CONV 






JMP 


DPW4 






UNC 


COMMON 4 WORDS 


* 2 worps 


CASF 














DRW2 


RB 


nr^p 




FA 




WOFI, 


TEST FOR TM.FGAf, UTGTT 






J MP 


TP15 






UNC 


NOTE JVP HFRF SET SP2-RB 




PC 


.ISP 


D4B 


SP1 




UMC 


co»v ?VD WORD 






JSB 


DPMI 






UrtC 


ri)MB WORDS 1,2 




RP 


.1SR 


D^F 


5P1 




!)NC 


CO'lV 3RD WORD 






JSB 


PPM2 






UMC 


CQPTjFTF CONV 




RBR 


ADD 






ABS 


nnn 


FOR SIGN - ARS=1 






JMP 


* + 4 






uur 


SKTP C'lPT, TF Pns 




RC 


SUB 




PC 




CRPY 






RR 


PAO 




PB 




UNC 






RP 


SU r -* 




PR 








* STORE 2 


WORDS 














nPND 


Ann 




PSPO 


»1PD 








PR 


adp 




PUS 


DATA 






SPO 




t Mr 




PUS 


WRD 








RT 


Aon 




BUS 


n A T A 










JMP 


DBF' 






UNC 


rriMM'iM kyit 


* I wnpp 


CASE 














DBW1 


RO 


JSB 


D4P 


SP1 




UMC 


COMV 1 WMRP 




RRR 


ADD 






APS 


FVFM 


FQP srGM - APS=1 




S»3 


SUB 




SP3 






COMPLEMENT 




opnp 


AD'> 




PUS 


wpn 




STi'RF 




SP3 


A»>r> 




PUS 


DATA 




1 WORD 






JMP 


DPFf- 






* t N C 


COMMON EXIT 



PAGE 6 3 



ADDRESS 



CONTENTS 



LABL RBUS SBUS F1U4C SHFT STOP SPEC SKIP 



COMMENTS 



FRI, JUN 4, t976, 10:14 AM 



2483 

248 4 

7485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 



3707 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3720 
37 21 
3722 
3723 
3724 
3725 
3726 
3727 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
37 3 7 
3740 
3741 
374? 
3743 
3744 
3745 
3746 
3747 
3750 
3751 
3752 



3753 
3754 
375S 
3756 
3757 
3760 
3761 
376? 
3763 



34537417777 
25446363715 
17772607777 
16774333275 
17537777777 
25457777777 
37537417760 
25706363723 
17772607777 
16774333275 
17537777777 
25717777777 
30537117777 
25226363731 
17772607777 
16774333275 
17537777777 
25237777777 
3153 7-117777 
2^606367/37 
17772607777 
16774333275 
17 5 3 7 7 7 7 7 7 7 
25617777777 
32537417777 
25626363745 
17772h07777 
16774333275 
17537 7 7777 7 
256377/7777 
33537417777 
25657707777 
17772607777 
16774333275 
17677777777 
25657707777 



33771527773 
25317707777 
33771527766 
25316707777 
25311600003 
33771527765 
377777^7777 
2531 1600005 
37777707777 



* subroutine -used for iok 

* 10K IM v - WIT TTPMCM'D 

* OFPENPTUG FN'fPY (TF.0FM1 ,DBp?, 

* MULTIPLIED r-Y 10K. THE CO^TE^I 

* LF^ST SIGNIFICANT WPRO 



MULTIPLICATION 



..) 1,2,.. 
OF 3P3 IS- 
< REGISTER) 



.REGISTERS ARE 
ADDED TO THE 



DBM6 



SPO 



DHM5 PL 



DBM4 



0RM3 



PBM2 



on mi 



OL 

SP3 

SBUS 

UBUS 

SB US 

SP3 



SP3 

SBUS 
SPO UBUS 

SBUS 

SP3 

RD 

SP3 

SBUS 
SPO UBUS 

SBUS 

SP3 

RC 

SP3 

SBUS 
SPO (PUIS 

S B IJ S 

SP * 

RB 

SP3 

SBUS 
S^O UB"p 

SBUS 

SP3 

RA 

SP3 

SBUS 
SPO IUUJS 

SBUS 

SP3 
DBWC DETERMINES TARGET 
SniJPC'-' PIG » RECEIVED 
RETURNED IN SP3 



ADO 

JWP 

RF.PN 

MP AD 

ADD 

ADD 

AL>n 

t 7MP 

PEP*.' 

I P A D 

ADD 

add 
add 

PEPN 
MP AD 
ADD 
ADO 
•ADD 
J f '* ° 
RFPN 
v v /v p 

A IJ 

add 

ADO 

,MP 

RFPN 

MPAD 

ado 
ado 

ADD 

ADO 

PFPN 

?'PAL 

ADO 

ADD 



DBF*. 



SP1 



DPP 4 



SRI 



D^N'3 



S&1 



[)PN>2 



SRI 



n ft r 1 



S^ 1 



SP1. 



* 

dbwc 



RA 

SP3 

RA 

SP3 

SP3 

PA 

SP3 



Pf)M 

Ann 

ROM 

I Mr 

PRU 
PO'i 

Ann 

POM 
ADD 



SP3 

PB 



?P3 

08 

SP3 

PL 



SP3 
PL 
SP3 
FT, 



SP3 
PL 
SP3 
V D 



SP3 

SP3 

PC 



SP3 

PC 
SP3 

PB 



PA 
PB 

i'ORD 
IV PA 



SP1 

SP1 
SP1 



SP1 



TMCT 



Tnct 



I'JCT 



TMCT 



I'JCT 



IMCT 



arsw 



>'ZRR 
UNC 
20 
CTRM 



nzpo 

IL\IC 

20 

CTPM 



MZ°n 

UNC 

20 

CTRM 



NZRO 
UNC 
20 
C TRM 



' ZPO 
''NC 
2 

ttrm 



PZRO 
PSB 
2 
fTPM 

P S B 
FOP 



CVDB 



- WORD OLSW 

77 7 3 PHS 

"SB 
7766 POS 

RSB 
000003 
77 5 6 PRS 

PSB 
000005 

PSB 



6 REGS * 
DL = 

01, * 10K 
n<S WORD 
LS WORD 
5 REGS * 
PL = 

PL * 10K 

ms wnRn 
LS wnpn 

4 PEGS * 
RD = 

PO * 10K 
MS WORD 
LS wn.RO 
3 PECS * 
PC = 

RC * 10K 
MS ^riRD 
LS WORD 
2 RE^S * 
RR = 



10K 



10K 



10K 



10K 



10K 



PB * I OK 
MS WORD 
LS WfiRD 
1 "EG * 1 OK. 
RET TE RA = 



RA 
VS 
LS 



* 10K 

WORD 

WORD 



-5 

SET 
-10 
SET 1 

-1<1 
SET 3 

SET * 
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ADDRESS COKTFNTS 


7537 






7538 


3764 


37531600017 


2539 


3765 


37762361374 


2540 


3766 


37766363777 


2541 






2542 






2543 






2544 


3767 


00766021456 


2545 


3770 


37531800015 


2546 


3771 


37762171476 


7547 


3772 


24777777777 


2548 


3773 


16777527616 


2549 


3774 


37571603134 


2550 


3775 


37766363570 


2551 






2552 


3776 


37762361374 


25«>3 


3777 


377*6363570 


2554 







LARf. PBUS SR1I5 FHNC SHFT STnR SPEC SKIP 



* TPAPS FOR CVOB 
TO 17 POM 

JSR 
.IMP 

* D4R JMPS HERE FOF- 

* FOR CVDP f 020601) GOFS TO TD15 

* FDR MPYD (020611) G^ES TO TA15 



SP3 000017 
PSHA UNC 

TOUT itnc 

TMVAI.FD DFCTMAL 



COMMFNTS 



tnv digit n 

PUSH 4 THS RFGS 
CVOB TRAP COMT 



FRI. JUW 4, 1976, 10:14 AM 



ROM CniJMT=l«64 



TCID 




CTR JMP 


TA1S 






FVFN 


MPYD 


TD15 




POM 




SP3 


000015 


IN VAT, in nFC DIG 






JSR 


RSIT 






NF2 


RESTORE PL,DT.,PB,Q IF T,0MG 


TDUT 




STA ADO 










ITSFR T»AP ? 


i 


HBHS 


URMS ADO 


SM 




snv 


pns 








ROM 




PAP 


TPPO 




YFS 






jyp 


n^pp 






WiC 


no SI>EC 


* FOR 


CVDF 


» ZERO OTGTT # 










DR7.T, 




JSR 


PSHA 






r'NC 


PUSH 4 TOS RFGS 






J MP 


npnr 






iwr 


SDFC & EXIT 


SSTAT 

n 
















RRRORSsO 




WAP*' IMG 


ISsflO 
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SYMBOL CROSS REFERENCF TAPI.F 



FPJ, JUM 4, 1976, 10:14 AM 



10CM 2520 

QfMP 1361 <= 2433 2516 

ADDD 2401 <= 2371 

ADDN 2535 <= 2437 2444 2451 ?456 2463 2470 2475 2«0? 

ADFN 2531 <= 2515 

ADSC 2412 

ADSH 2463 <= 2436 

ADZI, 2537 <= 2035 2036 

APOP 2220 <= 1464 2534 2540 2565 2756 

BD1W 3260 <r 3155 3251 

BD2W 3251 <= 3157 3240 

BD3W 3240 <= 3161 3225 

RD4W 3225 <= 3163 3207 

BD5W 3206 <= 3165 3167 

BPEA 3265 <= 3?24 

BDEC 3263 <= 3?37 3250 3257 

BDEN 3266 <= 3205 

RDFT 3105 <= 3154 3156 3160 3162 M6-» 3166 

BOZL 3306 <= 3120 3121 

BMD2 1752 

BPOP 3302 < = 1650 1651 1777 3^07 3322 

CADI 1667 <= 1663 

CAD2 1723 <= 1736 

CAD3 1725 <= 1711 

CAD4 1727 <= 1713 

CAD5 1731 <= 1753 1760 

CAD6 1743 <= 1720 1730 

CAD7 1744 <- 1701 1705 1724 1731 



PAGF! 66 










SYMBOL 


CROSS 


PEFEPE^'CF T 


CAD8 


1761 


<= 


1751 














CAD9 


1773 


<= 


1766 














COG' 


2143 


< = 


2767 














CKA* 


2062 


<= 


1652 


3335 












CKAB 


2060 


<= 


2255 


?404 


2567 


3126 








CKB* 


2041 


< = 


1660 


3340 












CKBB 


2037 


< = 


3462 














CKD' 


2145 


< = 


2663 














CKDC 


2144 


















CKLN 


2027 


<= 


2403 


2566 












CMP 


2541 


<- 


2507 














CPEN 


2564 


<= 


2544 


2554 


2557 










CPOP 


3437 


<= 


3334 


3447 












CVAD 


1641 


< = 


236? 














CVBD 


3112 


< = 


2364 














CVDA 


3323 


< = 


2363 














CVDR 


3450 


<= 


236* 














DO 


306? 


< = 


3236 


3247 


3256 










01 


3055 


< = 


3202 


3?04 


3220 


3?22 


3734 


3245 


3254 3760 


D2 


3050 


< = 


3200 


3716 


3? 37 


3243 


375? 






P.I 


304 3 


< = 


3176 


3214 


32 3 


3241 








D4 


3036 


< = 


3174 


3212 


3226 










04B 


2335 


< = 


2630 


263? 


2*34 


7636 


3511 


3516 


3520 3S?3 








3645 


3650 


3652 


3654 


3656 


3663 


366^ 3701 


D5 


JO-31 


<- 


317? 


3210 












06 


3024 


<= 


3170 














0A1 


3361 


< = 


3356 


3^01 


3404 










DA2 


3365 


< = 


3360 















FRI. JUN 4, 1976, 10:14 AM 
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SYMBOL CROSS REFERENCE TABLE 



FRI, JUV 4, 1976, 10: IS AM 



DA3 3400 <= 3374 

DA4 3405 <= 3372 

DA5 3423 <= 3415 

DA6 3426 <= 3411 3421 342* 

DA7 3433 <= 3427 

DB4A 3624 <= 3614 

DR4R 3650 <= 3635 

DB4L 3574 <= 3512 

DB4S 3635 <= 3510 

DR6A 3551 <= 3534 

DREN 3565 <= 3634 3700 3706 

DRM1 3745 <= 2633 3517 3600 3642 3653 3664 3740 

DRM2 3737 <= 2*35 3521 3602 3644 3655 3666 3732 

DPM3 3731 <= 2637 3524 3fc0<l 3646 3657 3724 

DRM4 3723 <= 3526 3*06 3716 

DBM5 3715 <= 3530 3710 

DRM6 3707 <= 3532 

DRW1 3701 <= 3504 

DRW2 3661 <= 3506 

DRW4 3613 <= 3647 3660 

DRWC 3753 <= 3463 

DRZL 3776 <= 3455 

DMPO 2757 <= 2612 

DMPl 2617 <= 2770 

DMP2 2771 <= 2621 

DMP3 2627 <= 2777 

DMP4 2672 <= 2725 

DMP5 2674 <= 2721 
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DMP6 


2704 


< = 


2722 




DMP7 


2705 


<= 


267 3 




DMPft 


2723 


< = 


2710 




0MP9 


2726 


<= 


2707 




DMPY 


1275 


<= 


2361 




DPOP 


3570 


< = 


3775 


3777 


EAS1 


0030 


<= 


0250 




FAS? 


0035 


<s 


0253 




EAS4 


0057 


< = 


0054 




EAS5 


0067 


< = 


0064 




EAS6 


0074 


< = 


0071 




EAS7 


0113 


< = 


0103 




EAS6 


0124 


< = 


0116 




EAS9 


0130 


< = 


0123 




EASB 


0023 








ECMP 


0701 








ECP5 


0740 


< = 


0213 


0745 


ECP7 


0741 


<s 


0726 


0734 0737 


EDIO 


0472 








ED12 


0524 


<- 


0533 




ED20 


0535 


<= 


0523 




ED22 


0561 


<= 


0566 


0641 0643 


E0?6 


0634 


<= 


0540 




ED27 


0644 


<= 


0640 




ED30 


0570 


<= 


0560 




ED32 


0606 


<= 


0611 


0655 0657 


ED34 


0613 


<= 


0605 




ED36 


0651 


<= 


0573 





SYMBOL CPPSS PEKERENCF TABLE 



FRI. JUM 4. 1976, 10:15 AM 
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SYMBOL CRHSS RF.FERF.MCF TAPLF 



FPI. JUM 4, 1976, 10:15 AM 



ED37 0645 <= 0654 0660 

ED40 061 ^ 

ED47 0647. <= 0615 

ED50 0620 <= 0650 

EDIV 0426 <- 0256 

FOZ2 0666 <= 0663 

F.DZR 0661 <- 0434 

FFOV 0214 <= 0210 

EFV1 0215 <= 0674 

FMP2 0314 <= 0311 

EMPY 0243 

ENEG 0747 <r 0705 

ENG2 0750 <= 0761 0765 0766 

FNG4 0753 <= 0747 

FRAD 1327 <= 2406 

FRER 1332 <= 3471 

FPFF 1331 <= 2106 2763 

FRLG 133^ <= 1330 257? 3127 

FTA' 1=525 <= 1540 

FTAG 1526 <= 1^32 

FTCH 1507 <= 2141 2266 241.1. 262? 2650 2771 3472 

FTDW 1541 <= 1S27 

LID 1027 <= 2332 7*61 2750 3271 

LID' 1^24 <= 2164 

L2D 1217 <= 2333 2417 

L2D # 1215 <= 2170 

L3D 1122 <= 266? 2747 3273 

L3D' 1120 <= 2172 
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SYMROT, CROSS PEFEPE*CF TARLE 



FPI, .HIM 4, 1976, 10:15 AM 



L4D* 2176 <= 2212 

MPYO 2566 <= 2374 

MSKA 2107. <= 2264 2407 2573 3137 

MSKB 2124 <= 2265 2410 2574 3470 

NOR2 0152 

NhR3 0154 <= 0425 0633 

NOR6 0162 <= 0151 

NOR7 0167 <= 0161 

NORM 0150 

NSL* 2232 <= 2140 

NSLD 202-3 <= 2 367 

PACK 0171 <= 0160 0166 023* 

PSHA 1374 <= 1377 1454 1644 2537 3306 3310 3326 376* 3776 

PSHM 0770 <= 0024 0*>45 

R1D 1064 <= 2227 2?76 2fr?S 3477 

R2D 1246 <= 2230 230? 2415 

R3D 1155 <= 2304 2624 277? 3501 

R4D 2310 

R4D' 23H <s 2320 

REST 2217 <= 2 331 

RRTA 1465 <= 1460 2564 

RSTL 1476 <= 2217 2532 2754 3300 3567 3771 

SCA1 1444 <= 1450 

SrAN 1421 <= 1410 1416 1442 1447 1451 

SCB1 1412 <= 1417 

SCNA 1433 <= 2fil0 

SCNP 1401 <= 2232 2607 

SLD 2024 <x 2366 
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SYMBOL CROSS RFFFRFMCF TARLF. 



FRI. .HIM 4, 1976, 10:15 AM 



ST.DX 7141 <= 2733 2740 2750 

SI.SR 2227 <= 2157 

SI.XW 2166 <= 2163 

SLXX 2173 <= 2161 216S 

SLXY 2706 < = 2200 

ST.XZ 2713 <= 2175 2731 

SPLT 1346 <= 1655 1661 2103 226? 2405 2571 313* 333* 3347 3467 

SPT1 1355 <= 1351 

SRD 7751 <= 2370 

SRLD 2025 <= 7751 

SRSL 233? <= 2771 

SRXW 2300 <= 2275 

SPXX 2305 <= 2773 2?77 

SRXY 7321 <= 2^07 2334 

STM5 1574 <= 1564 

STOR 1557 <= 2214 2330 25 ?1 2753 3777 

STPS 1606 <= 1614 1620 

STSC 1563 <= 1567 1573 

STSN 1621 <= 1M0 

SUBD 2407 <= 737? 2373 

TA13 1457 <= 274? 2614 2*74 2704 2760 

TA15 1456 <= ?146 7150 215? ?154 7443 2450 7455 246? 2467 7474 2501 2506 3767 

TA17 M52 <= 7034 

TAUT 1461 <= 1455 

TR13 3315 <= 3301 

TRLN 3310 <= 3117 

TBIFT 3317 <= 3314 

TC.15 3443 <= 3370 
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SYMBOL CRnSS PEFERF^CF TAPLE 



FPJ. JUM 4, 1976, 10:15 AM 



TC17 3442 <= 3330 

TCID 3767 <= 2336 

T015 3770- <= 3662 

TD17 3764 <= 3454 

TOUT 3772 <= 3766 

TF14 3316 <= 1707 1715 1722 1737 1742 

TF17 3313 <= 1647 

TPPO 3134 

TX13 1453 <~ 25 33 2755 

UAN1 0225 <= 0120 

UAN2 0235 <= 0726 0230 

UNTM 2400 <= 2360 

ZAN1 0224 

ZAN2 0231 <= 0224 ,0^32 

ZAN3 0020 <= 0313 0323 0464 

ZR23 0222 <= 0101 0145 
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OPERAND TABT..RS 



FRI, .TUM 4, 1976, 10:15 AM 





0017 


1392 


MREG 


0003 


RBUS 


0005 


42 


RC 


0011 


UBUS 


0016 


125 


X 


0006 



<«<<<< <<RBU S>> >>>>>>> 

5 PADP 0004 PT, 0000 

38 RD 0010 ?9 SPO 0015 

38 XC 0007 Z 0002 



36 


RA 


0013 


34 


RB 


001? 


30 


121 


SP1 


0014 


33 


SR 


oooi 


22 


19 

















0037 


591 


cc 


0027 





CTRT, 


0014 


35 


DR 


0022 


47 


OPND 


0026 


131 


P 


0020 





onwN 


0010 


3 


RA 


00 3 3 


08 


SBUS 


0017 


62 


SM 


0023 


63 


SWCH 


0007 





MP.US 


0016 


257 



<<<<«< <<SBUF.>>> >>>>>> 

CTR 0000 14 CPX1 0004 

DI. 0034 15 TOA 0011 

PADP 000? 1 PB 00 36 

RB 003? fil RBR 0003 

SP1 0001 106 SP? 0035 






CPX2 


000ft 





CTRH 


0015 


1 





TOO 


001? 





MOD 


0005 





19 


PCl.K 


0013 








0021 


26 


16 


RC 


0031 


80 


RD 


0030 


74 


81 


SP3 


0025 


131 


STA 


0024 


12 



APT) 


0037 


749 


AODO 


00 3-3 





CAND 


0005 


1 


CRS 


003? 


31 


INC 


0035 


1?7 


I wen 


0^31 





PNLP 


0020 





PMLS 


0021 





ROM 


0023 


154 


ROM I 


002? 


4 


UBNT 


0011 





XOR 


0006 


5 



<<<<<<<FUNCTTO M > >>>>>> 

AMD 0007 ?5 BNOT 00 15 

CTSP 0027 CTSP 00*4 

TOP 00?* 48 JMP 0014 

OAST.. 00 00 ■' ?2 OASR 0001 

»nm< 0003 45 RDMX 0002 



19 


CAD 


0018 


K H 


Cann 


0012 








dc at 


0036 


36 


DVSB 


0010 


14 


2 42 


J SB 


0004 


193 


MP AD 


0030 


29 


30 


RFPC 


0024 


4 


RFPN 


0025 


45 


9 


SOB 


0017 


74 


S'lBO 


001 3 








0037 


794 


BSPO 


0005 


61 


DR 


0022 


27 


Dl. 


0034 


32 


PB 


0036 


21 


PCL* 


0000 





RA 


00 3 3 


65 


RAR 


0027 


12 


SM 


0023 


10 


SPO 


0015 


49 


X 


0026 


34 


Z 


0012 


12 



<<<<<<<<<STOPF>>>>>>>> 

BRP1 0004 21 BUS 0007 

IDA 0001 TOD 0002 

PI, 0O11 30 PUSH 0010 

RB 003? 74 RC 0031 

SPt 0014 110 SP2 0035 



151 


CTRH 


0017 


2 


CTRT, 


0016 ' 


28 





MPEG 


0003 


1 


P 


0020 





4 





0021 


2 7 


OOP 


0013 





77 


RD 


0030 


69 


SBR 


0006 


5 


104 


SP3 


0025 


142 


STA 


0024 


2 
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<<<<<<< <<SK1P> >>>>>>>> 

2 CPRY OOIO 29 CTRM 0033 80 EVEM 0002 19 

19 IMDR 0024 JLUT 0031 NCRY 0011 29 

74 NF2 0017 27 NPFT, 0007 14 NPRV 0026 7 

21 POS ' 0017 29 RSR 0030 52 SR4 0022 

SPMZ 0021 SPZ 0020 1 TEST 0032 

<<<<<<<<SPFCTAT >>>>>>> 





0037 


8«l 


BTT6 


0005 


3 


BTT» 


000^ 


Fl 


0014 


16 


F7 


0016 


17 


F3 


0034 


NFG 


0013 


19 


NEXT 


0035 


15 


NF1 


0015 


NSME 


0004 


3 


NZRO 


0001 


54 


onn 


0003 


SRI, 2 


0025 


1 


SPL3 


0027 





SPN4 


00 7 3 


UNC 


0036 


361 


ZERO 


oooo 


59 









0037 


1193 


CCA 


0036 


7 


CCH 


0000 





CCE 


0035 


6 


CCG 


0034 


8 


C<~L 


0033 


9 


CCPX 


0001 





CCPY 


0075 


2 


cz 


0032 


3 


CF1 


0077 


13 


CF2 


0021 


71 


CF3 


0007 


9 


CT.TB 


0016 





CT.O 


0^31 


11 


CLSP 


0007 


1 1 


CTF 


00 06 


35 


OCSR 


001 t 


6 


F"B 


0015 


9 


HBF 


0014 


16 


IMCN 


0012 


2 


TMCT 


0013 


fi! 


TNSP 


0010 


1 I 


L*F 


0017 


8 


POP 


0027 


2 


POP A 


0026 


2 


SCRY 


0024 


7 


snFr, 


0005 





SFl 


00 2 3 


10 


SF2 


0020 


7 


SF3 


0003 


10 


STFG 


0004 





snv 


00 30 


4 



























<<<<<<<<< MCU >>>>>>>>>> 

CPL 0001 n/\T6 0021 

PR 0010 RND 0024 

RflMT) 0023 RriWP 0013 

ROSO 0025 5 00 30 



<<<<<<<<<SHIFT>>>>>>>> 

0007 1251 LI.Z OOOt 24 LRZ 0000 13 RLZ 0005 11 RRZ 0OQ4 25 SL1 0002 79 



ABS 


0000 


15 


CM!) 


0002 





NIR 


0011 





npNP 


0O31 


13 


RflA 


0007 





ROD 


0027 


*7 


ROS 


0037 


77 


ROSA 


0005 





WRS 


0036 


37 









62 


DP 


007O 


1 


DPO" 


0022 








R*JP 


0014 





RMS 


0O3 4 








ROMS 


00 3 3 





ROP 


0017 





1 


WPA 


0006 





WPD 


0026 


26 



SRI 0003 <»7 SWAB 0006 29 



HP 3000 SERIES II COMPUTER SYSTEM 



MICROPROGRAMMING LANGUAGE 
DESCRIPTION 
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HP 3000 Series II Computer System 



8/8/73 


RBUS 


SBUS 


FCN. 


SHIFT 


STORE 


SPEC. 


SKIP 


MCU 




00 


PL 


CIR 


OASL 


LRZ 


PCLK 


CCB 


ZERO T 


ABS 


00 


01 


SR 


SP1 


QASR 


LLZ 


IOA 


CCPX 


. NZRO T 


CRL 


01 


02 


Z 


PADD 


ROMX 


SL1 


IOD 


CLSR 


EVEN 


CMD 


02 


03 


MREG 


RBR * 


ROMN 


SRI 


MREG 


SF3 


ODD 




03 


04 


PADD 


CPX1 


JSB 


RRZ 


BSP1 * 


SIFG 


NSME T 




04 


05 


RBUS 


MOD 


CAND 


RLZ 


BSP0 * 


SDFG 


BIT6 


ROSA 


05 


06 


X 


CPX2 


XOR 


SWAB 


SBR * 


CTF 


BIT8 


WRA 


06 


07 


XC 


SWCH 


AND 


NOP 


BUS * 


CF3 


NOFL 


ROA 


07 


10 


RD 


QDWN 


DVSB 


1 / 


PUSH 


INSR 


CRRY 


PB 


10 


11 


RC 


IOA 


UBNT 


/ 


PL 


DCSR 


NCRY 


NIR 


11 


12 


RB 


IOD 


CADO T 


/ 


Z 


INCN 


POS 




12 


13 


RA 


PCLK 


SUBO T 


/ 


QUP 


INCT 


NEG 


RONP 


13 


14 


SP1 


CTRL 


JMP 


I / 


SP1 


HBF 


Fl 


RNP 


14 


15 


SP0 


CTRH 


BNDT 




SP0 


FHB 


NF1 




15 


16 


UBUS 


UBUS 


CAD : 




CTRL 


CLIB 


F2 




16 


17 


NOP 


SBUS 


SUB 




CTRH 


LBF 


NF2 


ROP 


17 


20 




P 


PNLR+ 




P 


SF2 


SRZ 


DB 


20 


21 




Q 


PNLS+ 




Q 


CF2 


SRNZ 


DATA 


21 


22 




DB 


ROMI 




DB 


CF1 


SR4 


DPOP 


22 


23 




SM 


ROM + 




SM 


SF1 


SRN4 


ROND 


23 


24 




STA 


REPC+ 




STA 


SCRY 


INDR 


RND 


24 


25 




SP3 


REPN+ 




SP3 


CCRY 


SRL2 


ROSD 


25 


26 




OPND 


IOR 




X 


POPA T 


NPRV 


WRD 


26 


27 - 




CC 


CTSD+ 




RAR 


POP 


SRL3 


ROD 


27 


30 




RD 


MPAD+ 




RD 


SCV 


RSB 


S 


30 


31 


/ \ 


RC 


INCO+T 




RC 


CLO 


JLUI 


OPND 


31 


32 


/ \ 


RB 


CRS + 




RB 


CCZ T 


TEST 




33 


33 


/ \ 


RA 


ADDO+T 




RA 


CCL 


CTRM 


RONS 


33 


34 


/ \ 


DL 


CTSS+ 




DL 


CCG 


F3 


RNS 


34 


35 


/ \ 


SP2 


INC + 




SP2 


CCE 


NEXT 




35 


36 


/ \ 


PB 


DCAD+ 




PB 


CCA T 


UNC 


WRS 


36 


37 


/ \ 


NOP 


ADD + 




NOP 


NOP 


NOP 


ROS 


37 



* These options inhibit execution of the "SPEC" field options and enable the 
"MCU" field options in their place. 

+ These functions cause an "ADD". 

T Test is made on the T-bus. 



l|2 3 4 


5 6 7 8 9 


lolll 12 13|l4 


15 16 |l 7 18 19 


20 21 22 


23 24 25|26 27 


28! 29 30 31 


SBUS 


STORE 


REPN 


COUNT 


SHIFT 


SPECIAL 


RBUS 


FUNCTION 


SKIP 


MCU 


JMP, JSB 


JUMP TARGET 


ANY ROM 


01 SKIP 0j)-17 


ROM CONSTANT 



-1- 



A BRIEF EXPLANATION OF THE MICROINSTRUCTION FIELDS 

There are nine fields and a comment space in the microinstruction, which are 
coded as follows: 

coding sheet 

1 — 4 6—9 11—14 16—19 21—24 26 — 29 31—34 36—39 46 72 

LABEL R-BUS S-BUS FUNC. SHIFT STORE SPEC SKIP 'COMMENTS • 

The LABEL field may contain any characters in columns 1-4 provided that the 

first character is not the blank character, an asterisk (*), an ampersand (&), or a 

percent sign (%). These are interpreted by the assembler as follows: 

blank - No label. 

& - If followed by a 4 digit octal number (e.g. 0271) in col's. 2-5, the as- 

sembler will load this number in its address counter and continue the as- 
sembly from there. If not followed by a number, the assembler address 
counter is set to the beginning of the next 256 word sector, and the as- 
sembly continues from there. 

* - Indicates a comment card which will appear on the listing, but will 
not affect the assembly. 

% - May be used to insert a label in the symbol table. This is useful when 
assembling code segments that refer to labels in other segments not 
being assembled. The format is SSbxxxxbbyyyy where: 

b = blank 

xxxx = 4 character (max.) label (trailing characters on labels of 
less than 4 characters are blanks). 

yyyy = 4 character octal address of the label in the sector refer- 
enced. Must contain 4 characters and no blanks (e.g. 0120). 
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NOTE: To "NOP" a field, it must be left blank. Note that there is no NOP in 



the function field; hence this field must always be coded with something. 

The R-BUS field in columns 6-9 points to the register to be placed in the 
R-BUS register. 

The S-BUS field in columns 11-14 points to the register to be placed in the 
S-BUS register. 

The FUNCTION field in columns 16-19 gives the function that the arithmetic 
logic unit (ALU) is to perform on the two operands contained in the R-BUS and 
S-BUS registers or a special function. 

The SHIFT field in columns 21-24 denotes how the information resulting from 
the ALU and placed on the T-BUS should be shifted and placed on the U-BUS. 

The STORE field in columns 26-29 points to a register in which the contents 
of the U-BUS are to be stored. 

The SPECIAL field in columns 31-34 has many varied uses which are best 
explained in that section of this document. 

The SKIP field in column 36-39 denotes conditions of the CPU on which logical 
decisions in the microprogram can be made. 

The COMMENT field may contain any explanatory comments. 

JMP, JSB Targets are 4-character alphanumeric labels coded in place of the SHIFT field 
(col's 21-24 of the coding sheet). The y-assembler matches this label with a binary 
address (12-bit) from the symbol table and inserts this address in bits 20-31 of the 
ROM word containing the JMP or -JSB. This voids the SHIFT S SPEC. & RBUS fields (must 
be coded with LABEL, NOP NOP, respectively). 
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ROM functions (ROM, ROMI, ROMX, ROMN) cause a 16-bit constant to be placed in 
the RBUS register, which is then operated on by the ALU in conjunction with 
the SBUS register as explained in the section on "function field". The 
constant is coded as a 4- or 6- (octal) digit in place of the SPEC field (col's 
23-26 or 23-28 of the coding sheet). If a 4-digit number is detected by the 
p-assembler, a 12-bit number corresponding to the octal number is placed in the 
ROM word in positions 20-31. In addition R0M(15) is set to 0. This enables 
skips 00-%17 (i.e. ZER0-NF2) of the skip field (note that a skip must be coded- 
NOP is not possible). When the p-instruction is executed in the machine, the 
constant is placed right-adjusted into the RBUS register, with the hardware 
extending the sign of the 12-bit number (bit 4) into bits 0-3 of the register 
(e.g. %7774 becomes 177774). The SHIFT, SPEC, & RBUS fields are voided (must 
be coded NOP, constant, NOP, respectively). If a 6-digit number is detected 
by the y-assembler, a 16-bit number corresponding to this octal number is 
placed in the ROM word in positions 16-31. R0M(15) is also set to a 1 . In 
this case the SKIP, SHIFT, SPEC & RBUS fields are voided (must be coded NOP, 
NOP, constant, NOP respectively - note also that the octal constant spills 
over into the skip field when coding). In both cases, the y-code listing 
will show the 6-digit (octal) number. 
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TOP OF THE STACK 

The stack has a topmost element which is LOGICALLY the quantity A. Similarly, 
there is a LOGICAL quantity B, C, and D corresponding to the second, third, 
and fourth word of the stack, respectively. The LOGICAL quantities A, B, C, 
and D may be either in registers or in memory. This is determined by the SR 
register. If the SR register is then none of the logical quantities A, B, 
C, or D are in registers but rather they are located in memory locations (SM), 
(SM-1), (SM-2), and (SM-3), respectively. 

At all times however, there are four registers RA, RB, RC, and RD, which are 
named by a hardware naming device. In the microprogram the micro-options RA, 
RB, RC, and RD refer to the hardware named registers and NOT TO THE LOGICAL 
QUANTITIES A, B, C, and D. There is a correspondence however. For any of the 
LOGICAL quantities A, B, C, and D, the state of SR indicates where it is located 
by the following table: 

SR A B C D 






(SM) 


(SM-1) 


(SM-2) 


(SM-3) 


1 


RA 


(SM) 


(SM-1) 


(SM-2) 


2 


RA 


RB 


(SM) 


(SM-1) 


3 


RA 


RB 


RC 


(SM) 


4 


RA 


RB 


RC 


RO 



Note then that if SR=1, B is in (SM) and if the micro-op RB is used, the 
contents of the register named RB will be affected, NOT THE LOGICAL quantity 
B (i.e. for this case, RB, RC, and RD could be used as scratch pads without 
affecting B, C, or D). 

The micro-store field instruction PUSH does three things: 

1. Stores the output of the shifter into the register RD. 

2. Increments the SR register. 

3. Renames the registers so that 

N(RA) .:= RB, N(RB) := RC, N(RC) := RD, N(RD) := RA where 
N(RA) is read 'the register named RA' (i.e., N(RA) := RB is read 'the 
register named RA becomes RB'). 
This "pushes" the contents of the U-BUS onto the top of the stack (TOS). 
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Similarly the micro-spec field instruction POP does two things: 

1. Decrements the SR register. 

2. Renames the registers so that 

N(RA) := RD 8 N(RB) := RA, N(RC) := RB, N(RD) := RC. 
This "pops" the top element from the stack. 

The micro-functions QUP, QDWN, MREG read and stores, are fully explained in 
the field descriptions and should be used very seldomly since the stack will be 
preadjusted in most cases. 
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R-BUS Field 

(blank) Zero is Dlaced in the R-BUS register. 

MRE6 SP1 (14:15) are added to the contents of the namer register to get a 

temporary name. This is used to reference a memory element that 
happens to lie in the TOS. Register SP1 (14:15) contains S-E (where 
S = SR + SM and E = Effective Address). A TOS register (RA, RB, RC, 
or RD) used as a store option on the line immediately preceding 
this instruction will assume this temporary name. 

PADD The pre-adder contents are placed in the R-BUS register. 

PL The Program Limit register, PL, is placed in the R-BUS register. 

RA The register named RA by the hardware namer is placed in the R-BUS 

register. 

RB The register named RB by the hardware namer is placed in the R-BUS 

register. 

RBUS The R-BUS register is unchanged. 

RC The register named RC by the hardware namer is placed in the R-BUS 

register. 

RD • The register named RD by the hardware namer is placed in the R-BUS 

register. 

SP0 Scratch Pad 0, SP0, is placed in the R-BUS register. 

SP1 Scratch Pad 1, SP1, is placed in the' R-BUS register. 

SR The Stack Register counter, SR, is placed in the R-BUS register 

(13:15), preceded by 13 leading zeros. 

U3US The output of the shifter (i.e., the U-BUS), is placed in the R-BUS 

register. 
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X The index register, X, is placed in the R-BUS register. 

XC If the index bit of the current instruction is zero, then is 

placed in the R-BUS register, otherwise the index register is 
placed in the R-BUS register. The index bit, for indexable 
instructions, * CIR(4). 

Z The stack limit register is placed in the R-BUS register. 
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S-BUS Field 



(blank) Zero is placed in the S-BUS register. 



*CC 



SBUS(8:9) := STATUS(6:7) 
and if STATUS(6:7) = 00 then SBUS(7) 

else SBUS(7) 
All other bits of SBUS are zeroed. 
Note: SBUS = S-BUS register. 



:* 1 
= 



CIR 



The contents of current instruction register is placed in the 
S-BUS register. 



**CPX1 



**CPX2 



RUN Mode InterruptStatus 'register is placed in the S-BUS 

register. --Also clears the I/O Timer FF if no SIO transfer is in process 

HALT Mode Interrupt Status register is placed in the S-BUS - *:? 
register. 



*CTRH 



S-BUS REG(4:9) := CNTR(0:5). This will be used mostly in floating 

point exponent manipulations. 

Note: CNTR is a 6-bit binary counter. 



*CTRL S-BUS REG(10:15) := CNTR(0:5) 



DB 

DL 

*I0A 



The data base register, DB, is placed in the S-BUS register. 

The data limit register, DL, is placed in the S-BUS register. 

The I/O address register is placed in the S-BUS register bits 8:15. 
(Reads Interrupting Device NO.) 



IOD 



The I/O data register is placed in the S-BUS register. 
(Reads Direct Data Buffer.) 



♦Unless otherwise noted, remaining bits are zero. 
**See explanation of interrupts. 
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HOD A constant is brought to the S-BUS register in the following way: 

Left byte: contains transmitted MOP (command) and sender's module 
number as shown: 

SBUS(0,1,4) := 
SBUS(2,3) := MOP 

SBUS(5:7) := Interrupting module ho. 

Valid only after module interrupt is received, and until the MOD INT 

FF is cleared. 

Right byte: contains encoded CPU No. information as follows 

SBUS(8:15) := %004 if CPU #1 
SBUS(8:15) := %010 if CPU #2 

OPND The operand register, is placed in the S-BUS register. 

P The Program counter, P, is placed in the S-BUS register. 
PADD The pre-adder output is placed in the S-BUS register. 

PB The Program Base register, PB, is placed in the S-BUS register. 

PCLK The Process Clock PCLK, is Placed in the S-BUS register. 

Q The Stack Marker Pointer register, Q, is placed in the S-BUS register. 

QDWN It takes the lowest valid TOS register and puts it in the S-BUS register 
in the following way: the TOS registers are renamed by NAMER + SR. RD 
is then dispatched to the S-BUS. The TOS registers are returned to their 
former names on the following cycle. A TOS register used in the STORE 
field of the previously executed instruction will assume a temporary name, 
A DCSR Special Option is needed to complete the operation. 

RA The register named RA by the hardware namer is placed in the S-BUS 
register. 

RB The register named RB by the hardware namer is placed in the S-BUS 
register. 

RBR Read bank register onto SBUS(14:15). SBUS(0:13) := 0. The bank 
register to be read is specified in the "MCU" field. Execution of 
the "SPEC" field is inhibited. 

RC The register named RC by the hardware namer is placed in the S-BUS 
register. 
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RD The register named RD by the hardware namer is placed in the S-BUS 

register. 

SBUS The S-BUS register is unchanged. 

SM The memory Top of Stack pointer register, SM, is placed in the S-BUS 

register. 

SP1 Scratch Pad register 1, SP1 , is placed in the S-BUS register. 

SP2 Scratch Pad register 2, SP2, is placed in the S-BUS register. 

SP3 Scratch Pad register 3, SP3, is placed in the S-BUS register. 

STA The Status register, STA;~is placed in the S-BUS : register.. . 

SWCH* The switch register .contents are placed in the S-BUS register. 

UBUS The output of the shifter (.i.e., the U-BUS) is placed. in, the :, 

S-BUS register. 
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Function Field 

ADD The contents of the R-BUS and the S-BUS registers are added and the 
result is placed on the T-BUS. 
Mote: The T-BUS is the ALU output (or shifter input). 

ADDO The contents of the R-BUS and the S-BUS are added and the result is 
placed on the T-BUS. The overflow and carry bits in the STATUS word 
are set or cleared depending on the state of the ALU output. CCA 
is set from the T-BUS. 

AND The logical AND of the R-BUS and the S-BUS is placed on the T-BUS. 

QASL Causes a 4 register arithmetic shift left of the U-BUS, SP3, SP1 and 
the R-BUS register containing the most," next most, next least, and 
least significant word, respectively. SL1 is required in the shift 
field and the direction of the shift is left. The sign bit is preserved, 

T-BUS := SREG; 
UBUS(0):= TBUS(0); 
UBUS(1:14):= TBUS(2:15); 
UBUS(15);= SP3(0); 
SP3(0:14):= SP3(1:15); 
SP3(15):= SP1(0); 
SP1(0:14):= SP1(1:15); 
SP1(15):= RREG(0); 
RREG(0:14):= RREG(1:15); 
RREG(15):= 0; 

QASR Causes a 4 register arithmetic shift right of the U-BUS, SP3, SP1 , 
and the S-BUS register containing the most, next most, next least, 
and least significant words respectively. SRI is required in the shift 
field and the direction of the shift is right. The sign bit is 
propagated. 
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TBUS:= RREG; 
UBUS(0:1):= TBUS(0); 
UBUS(2:15):= TUBS(l:il4); 
SP3(0):= TBUS(15); 
SP3(1:15):= SP3(0:14); 
SP1(0):= SP3(15); 
SP1 (1:15):= SP1(0:14); 
SREG(0):= SP1 (15); 
SREG(1:15);= SREG(0:14); 

BNDT The function executes a hardware bounds test of an address. 
If the shift field contains LRZ, RRZ, RLZ, or LLZ, then 

TBUS := RBUS-SBUS -1 (and the shift is executed) 
else 

TBUS := RBUS-SBUS. 

If the ALU Carry Out =1, the next y-instruction is fetched. If the 
carry =0 and the machine is in USER mode, a hardware y-jump is made 
to ROM addr. 3. BNDT takes precedence over the skip field if the 
test fails. The above allows bounds tests to be made for (RBUS) 
> (SBUS) (1st case) or (RBUS) > (SBUS) (2nd case). 

CAD The l's complement of the S-BUS is added to the R-BUS and the result 
placed on the T-BUS. 

CADO Same as CAD with addition that the carry and overflow bits in the 

STATUS word are set or cleared depending on the state of the ALU output. 
CCA is set from the T-BUS. 



CAND T-BUS := R-BUS AND (S-BUS). r 

CRS The T-BUS is circular shifted right (SRI) or left tSLl) one bit and 
put on the U-BUS. U(0) := T(15) if SRI, or U(15) := T(0) if SL1. 
Implied T-BUS := R-BUS + S-BUS. 

CTSD This function performs a double register shift of the T-BUS and a scratch 
pad register. A left shift, indicated by an SL1 in the shift field, 
expects the least significant word in SP1 . A right shift (SRI) expects 
the least significant word in SP3. The type of shift is determined from 
the contents of the CIR as follows. T-BUS := R-BUS + S-BUS implied. 
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CTSD (Cont.) 

CIR(7) = 1 Circular shift 

CIR(7:8) = 0,1 Logical shift 

CIR(7:8) = 0,0 Arithmetic shift 

Note; Both Spl and SP3 get shifted on CTSD. Hence one or the 
other, depending on the direction of the shift, will contain 
garbage at the end. 

CTSS The T-BUS is shifted in a manner determined by CIRt7:8) as follows. 
Implied T-BUS := R-BUS + S-BUS. 
CIR(7) = 1 Circular shift 
CIR(7:8) = 0,1 Logical shift 
CIR(7:8) = 0,0 Arithmetic shift 
Note: The direction is determined by shift field. 

DCAD Adds two 4-digit decimal numbers together and places the result on 
the U-BUS. For valid results each digit must be in the range 
£ n £ 9. A carry digit (F3) is added to the least significant 
digit during the add, and a decimal carry out is saved (in F3) at 
the end of the add. This allows multiple-register adds. F3 must 
be cleared prior to the first add in order to obtain valid results. 

Specifically. The function DCAD adds the contents of the R- and 
S-BUS registers and puts the result into a decimal correction adder. 
the shifter is turned off (inhibiting the ALU output from the U-BUS), 
and the decimal corr. adder output is placed onto the U-BUS. The 
decimal carry FF (F3) logic is enabled. 

Shift field and spec, field "FHB" are ignored. The T-BUS (ALU output) 
reflects the result of the uncorrected binary addition. 

If an invalid diqit is detected Hn either the R- or S-BUS registers 
during the add cycle, the "set overflow" line is asserted to provide 
a skip test indication (the state of the OVFLO FF is not affected). 
Normal code sequence is, then, (registers are arbitrary) 

RA RB DCAD - SP1 - NOFL 
OMP TRAP - - UNC 
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This function performs the subtract, shift, and test necessary to 
Implement a divide algorithm. To start, F2 = 0, the divisor is 
in the S-Reg., and the double word dividend is in the R-Reg. 
(MSW) and SP1. SL1 must be in the shift field. One bit quotient 
comes in SP1(15). 

DVSB ALGOL DEFINITION: 
TBUS:= RBUS-SBUS; 

UBUS(0:14):= TBUS(1:15); BY SL1 in shift field 
If ALU carry or F2=l then 
BEGIN 

RREG(0:14) := UBUS(jD:14); 
RREG(15) := SP1(0); 
SP1(0:14) := SP1(1:15); 
SP105) := 1; 
F2 := TBUS(0); 
END 
else 

BEGIN 

RREG(0:14) ;= RREGO:15); 
RREG(15) := SP1(0); • 
SP1(0:14) := SP1(1:15); 
SP105) := 0; 
F2 := RREG(0); * 
end; 

INC T-BUS := R-BUS + S-BUS + 1 
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INCO Same as INC with the addition that the carry and overflow bits in the 

STATUS word are set or cleared depending on the state of the ALU output. 
CCA is set from the T-BUS. 

IOR The R-BUS and S-BUS are logically t)Red together and the result 

placed on the T-BUS. 

JMP This function performs a micro- jump to the ROM address specified 

in bits 20 to 31 if the condition contained in the skip field is 
met. If the skip condition is not met, the next ROM instruction 
in sequence is fetched. Also, implied U-BUS := T-BUS := S-BUS. 

JSB This function causes a subroutine jump, and is executed like the 

JMP function except that the RAR register is stored into the 
SAVE reg. This is the return address for the subroutine. A JSB FF 
is also set (see also RSB in the skip field). 

MPAD This function performs the shift, test, and add functions necessary 

to implement a multiply algorithm. To start, the multiplier is 
in SP3, the multiplicand is in the R-BUS register, and the S-BUS 
register =0. An SRI is required in the shift field. One bit 
result comes in SP3(0). 

T-BUS := R-REG +.S-REG; U-BUS(1:15) := T-BUS(0:14) 
U-BUS(O) := ALU carry; if SP3(15) = 1 , then S-Reg := 
U-BUS, SP3(1:15) : = SP3(0:14); SP3(0) := T(15); else 
S-REG(1:15) := S-REG(0:14),SP3(1 :15) := SP3(0:14), 
SP3(0) := S-REG(15). 

PNLR A maintenance panel function. The appropriate register selected from the 

maint. panel is brought to the T-BUS through ALU. (R- and S-field are 
ignored). Appropriate bank reg. Is gated to the bank lines. 

PNLS A maintenance panel function. The U-BUS is stored in the appropriate 

register selected from the maintenance panel. If the register selected 
is RB, DB, Z, or Mem. Addr. (SP0), The value in the bank switches is 
stored into the appropriate bank register. 
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The following two functions are repeat commands and operate in the following 
inner. The microinstruction following the repeat command is executed over 
and over until the skip field condition of the repeated instruction is met. 
The instruction is then terminated and normal microprocessing proceeds. The 
skip field of the . REPN : instruction may not be used, except as shown below. 
The two repeat functions differ only in what they do during their execution, 
not in the operation of the repeated instruction. A repeated line of y-code 
will execute at least once, even if its SKIP condition is immediately met. 

REPC Normal repeat function that has implied T-BUS := R-BUS + S-BUS. 

REPN Send skip field contents to CNTR, CNTR(O) = 1 , and implied T-BUS 

:= R-BUS + S-BUS. (The p-assembler puts -(skip field) into the counter). 
Note: Skip field tests are inhibited. 

See explanation on Page 3A for the following 4 functions. 

ROM Bits 20-31 or 16-31 of this instruction are placed in the R-BUS reg. 

(If the former, bits 0:3 of this reg-.- are set to bit 4 (sign extension)). 
Implied TBUS := RBUS + SBUS. 

ROMI Same as ROM except implied T-BUS := inclusive - OR of R and S BUS. 

ROMN This function is like ROM except implied T-BUS := R-BUS AND 

S-BUS. 

ROMX This function is like ROM except implied T-BUS := R-BUS XOR S-BUS. 

SUB T-BUS := R-BUS -.S-BUS. 

SUBO Like SUB, except carry and overflow bits in the STATUS word are set 

or cleared depending on the state of the ALU output. CCA is set 
from the T-BUS. 

UBNT Unconditional bounds test. Same as BNDT except no test for USER 

mode is made (i.e. if the test fails, the jump to ROM addr. 3 is 
made regardless of machine mode). 

XOR T-BUS := R-BUS EXCLUSIVE OR S-BUS. 



-15- 



Shift Field 

Note: Left byte = bits 0:7 
Right byte = bits 8:15 

(blank) No shift, U-BUS := T-BUS. 

LLZ "Left to left and zero" places the left byte of the T-BUS in 

the left byte of the U-BUS and places zeros in the right byte of 
the U-BUS. 

LRZ "Left to right and zero" places the left byte of the T-BUS in the 

right byte of the U-BUS and places zeros in the left byte of the 
U-BUS. 

RLZ "Right to left and zero" places the right byte of the T-BUS in 

the left byte of the U-BUS and places zeros on the right byte of 
the U-BUS. 

SWAB "Swap Bytes" places the right byte of the T-BUS in the left byte 

of the U-BUS and the left byte of the T-BUS in the right byte of 
the U-BUS. 

RRZ "Right to right and zero" places the right byte of the T-BUS in 

the right byte of the U-BUS and places zeros in the left byte of 
the U-BUS. 

SL1 "Shift left one" shifts the T-BUS one bit left onto the U-BUS. 

When used with TASL, CTSS, CRS, CTSD and DVSB in the function 
field, refer to those descriptions to determine the action taken. 
This option may be used alone to perform a single logical shift 
where a zero is brought into U-BUS(15) and bit of the T-BUS 
is lost. 
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SRI "Shift right one" shifts the T- BUS one right onto the U-BUS. 

When used with TASR, CTSS, CRS, CTSD and MPAD in the function 
field, refer to those descriptions to determine the action 
takeni This option may be used alone to perform a single 
logical right shift'where a zero 1s brought into U-BUS(0) and 
bit 15 of the T-BUS is lost. 
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Store Field 

(blank) No store. 

BSP0 Stores U-BUS into A-COR or D-COR, depending on the 'MCU field option 
selected, and into SP0. It disables the special' field and enables 
the MCU options, one of which must be used. 

BSP1 Same as BSP0 except SP1 is used. 

BUS Same as BSP0, except none of the scratch-pad registers are used. 

CTRH Counter high stores U-BUS(4:9) in the counter. 

CTRL Counter low stores U-BUS (10:15) in the counter. 

DB Stores the U-BUS in the Data Base Register, DB. 

DL Stores the U-BUS in the Data Limit register, DL. 

IOA Sends the command on UBUS(5:7) to the device whose address is on UBUS(8:15) 
UBUS(j9)=l is used to generate the "service out" signal to the device. 
UBUS(8) is treated by the hardware as a "don't care" (device addresses are 
limited to 7 bits, contained in IJBHS (9:15)). 

IOD Stores the UBUS into the I/O Data register. 

MREG The contents of Namer is added to two bits (SP1 (14:15)) to obtain 
temporary name. This is used to reference a memory element that 
happens to lie in the TOS registers. SP1 (14:15) contains E-SM. 
TOS registers used in the R and S field in the line following this 
instruction will assume the temporary name. 

P Stores the U-BUS into the program counter, P. 

PB Stores the U-BUS into the Program Base register, PB. 

PCLK Stores the U-BUS into the Process. Clock.register, PCLK. 
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PL Stores the U-BUS into the Program Limit register, PL. 

PUSH Stores the U-BUS into the RD register, increments the SR register 

by one and at the end of the microinstruction cycle renames the TOS 

N(RA) := RB, N(RB) := RC, N(RC) := RD, N(RD) := RA. 
Q Stores the U-BUS in the Stack Marker Pointer, Q. 

QUP. The TOS registers are renamed by NAMER + SR. Temporarily named 

RA := U-BUS. The TOS register names are returned to NAMER - however 
incrementing of SR is not implicit*. INSR (inc. SR) must appear in 
the special field in order to increment SR. TOS registers used in 
the R and S fields following this instruction will assume the 
temporary name. 

RA Stores the U-BUS in the register named RA. 

RAR Gates U-BUS(0:15) onto VBUS(0:15). This takes 3 cycles. (See also 

Appendix B #26). Skip field is ignored. 

RB Stores the U-BUS in the register named RB. 

RC Stores the U-BUS in the register named RC. 

RD Stores the U-BUS .in the register named RD. 

SBR Stores U-BUS(14:15) into the bank register specified in the "MCU" 

field. Execution of the "SPEC" field is inhibited. 

SM Stores the U-BUS into the memory stack pointer, SM. 

SP0 Stores the U-BUS into scratch pad register 0, SP0. 

SP1 Stores the U-BUS into scratch pad register 1, SP1. 

SP2 Stores the U-BUS into scratch pad register 2, SP2. 
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SP3 Stores the U-BUS into scratch pad register 3, SP3. 

STA Stores the U-BUS into the Status Register. 

X Stores the U-BUS into the index register, X. 

Z Stores the U-BUS into the stack limit pointer, Z. 
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Special Field 

Note: If the S-BUS field contains "RBR", or the STORE field 
contains "BUS", "BSP0", "BSP1", or "SBR", then special field 
1s disabled and MCU field is enabled. 

(blank) No special option. 

CCA Sets the condition code bits in the status word to 

CCL if T-BUS < 0. 
CCE if T-BUS = 0. 
CCG if T-BUS > 0. 

CCE Sets the condition code bits in the status word to CCE. 

STA(6:7) := 1,0 

CCG Sets the condition code bits in the status word to CCG* 

STA(6:7) := 0,0 

CCL Sets condition code bits in status word to CCL. 

STA(6:7) := 0,1 

CCPX Clears the interrupt status register bits as specified by the 

true bits on the U-BUS. (See explanation of interrupts.) 

CCRY Clear the carry bit in the status word. 

CCZ Sets condition code bits in status word to CCE if T-BUS - and 

CCG if T-BUS not equal 0. 

CF1 At the end of the cycle, CF1 clears Flag 1. 

CF2 At the end of the cycle, CF2 clears Flag 2. 

CF3 At the end of the cycle, CF3 clears Flag 3. 

CLIB At the end of the cycle, CLIB sets a FF which masks the indirect line 

until a NEXT or JLUI option in the SKIP field is encountered. This FF 

may also be cleared by a UBUS(8).CCPX operation (NIR^CIR). 
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CLO At the end of the cycle, CLO clears the overflow bit in the 

status word. 

CLSR Sets the SR register to zero during the cycle. Note that this is 

an asynchronous reset. No other SR operation during the cycle is 
allowed. 

CTF Stores the ALU carry in Flag 1 at the end of the cycle. 

DCSR Decrements the SR counter by 1. 

INCN Increments the Namer. N(RAl :* RD, N(RBi ;=• RA, NCRCl ;~ RB, N(RD). ;- RC 

(Can be read "the register named RA becomes the register named RD, etc.") 

FHB Flag 1 to high bit. U-BUS(O) := FLAG1. 

HBF FLAG! := U-BUS(O). 

INCT Increments the counter by 1 (modulo 64). 

INSR Increment SR by 1. 

LBF Low bit to flag 2. F2 := U-BUS(15). 

POP This option decrements the SR by 1 and then renames the TOS 

registers (increments namer) such that: 

N(RA) := RD, N(RB) := RA, N(RC) := RB, N(RD) := RC. 

POPA Exactly like POP, except CCA is set on the contents of the T-BUS. 

SCRY Set the carry bit in the status word. 

SDFG Sets the dispatcher flag CPX1(12) := 1. 

SF1 Sets flag 1 at the end of the cycle. 

SF2 Sets flag 2 at the end of the cycle. 

SF3 Sets flag 3 at the end of the cycle. 
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SIF6 Sets the interrupt flag CPXl(ll) :» 1. 

SOV Sets the overflow bit in the status word at the end of the cycle. 

» 
CCB Sets CCB on contents of UBUSC8;15}: 

CCL = Special 

CCE = Alphabetic 

CC6 = Numeric 

NOTE: CCL = STA (6:7) = 01 
CCE = STA (6:7) = 10 
CC6 = STA (6:7) = 00 
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Skip Field 

The skip field does one of two things: 

1. Sets the condition met flag or 

2. Initiates a hardware micro-jump. A hardware micro-jump needs no jump 
target in the micro-instruction. 

The condition met flag after a REPN or REPC function option indicates the 
condition on which to terminate the repeated micro-instruction. Otherwise 
it indicates that the next micro-instruction is to be skipped. (See also 
the explanation of ROM constants on Page 3a). 

(blank) No skip option 



*BIT6 



Condition met if bit 6 of the U-BUS is a 1. 



*BIT8 
*CRRY 



Condition met if bit 8 of U-BUS is a 1. 

Condition met if the carry out of the ALU is a one. (Note: 
This is not the carry bit in the status word.) 



CTRM 



Condition met if the counter contains all ones. (Note: When 
INCT CTRM options occur the counter is tested before it is 
incremented. ) 



*EVEN 
Fl 
F2 
F3 

INDR 



Condition met if U-BUS(15) = 0. 

Condition met if at the beginning of the cycle, flag 1 is set, 

Condition met if at the beginning of the cycle, flag 2 is set, 

Condition met if at the beginning of the cycle flag 3 is set. 

Condition met if the indirect bit of the current instruction 
register is set, where 

INDR = (CIR(4) • MEM REF + CIR{5) • MEM REF) • CLIBFF 
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JLUI 



Conditional hardware microjump to the address that the lookup 
table is displaying if the indirect line from the CIR is not = 1 
CLIB must have been previously used to guarantee a jump on all 
instructions. "JLUI" resets the CLIBFF at the end of the cycle. 



*NCRY Condition met if the carryout of the ALU is zero. (Note this is 
not the carry bit in the status word.) 

*NE6 Condition met if U-BUS(O) = 1. 

NEXT Terminates current instruction and initiates the sequence necessary 
to begin execution of the next instruction. If stackop A has just 
been executed and stackop B is not a NOP, then the hardware executes 
stackop B. Otherwise the action shown in the timing figure below 
takes place (a, b, c, d, e, f are equal length CPU clock cycles): 



a b 

Mem. Sel. cycle! 
Data-^NIR NIR+LUT 



d 

TOT 



BUSL, RWP 
Issue LOREQ 
LUT+VBUS+ 

R0M+RANK1 
NIR+C1R 



e 



P+l+P 

Select cycle. 
RANKURANK2 
(if mem. ref . , 
force PADD, BASE 
to R, S-BUS Reg's. 



execute 1st 

line of y- 

code of new 
instr. 



Time periods a, b, c (if present), and d occur in the currently 
executing instruction, "a" and "b" must occur before "d" for maximum 
execution speed- otherwise a CPU freeze will occur at "d". "a" and "b" 
result from the "next instruction prefetch" of the current instruction, 
"c" may or may not be present depending on the length of the current 
instruction, "d" is the last line of the current instruction. It 
Initiates a "next instruction prefetch", transfers (NIR) to CIR, and 
applied the address on the VBUS .(normally using the LUT output) to the 
ROM input. The ROM word at this address is stored in RANK1 . In 
addition, the N0P2 FF is set. "e" is used to increment the P-reg., 
transfer RANK1 to RANK2, and tf the new Instruction ts a memory-reference 
type, load the R- and S-BUS reg's. with the Pre-adder output and the- 
proper base register. This is also the "select" cycle for the "next 
instr. prefetch" if there is no MCU conflict. During "f", the first 
line of the new instruction is executed. 
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FXT (Cont.) 

The above is the normal sequence of operation of "NEXT". This 
sequence is modified in the event an interrupt is pending or the* 
v -code 1 i ne i s " . . . DATA NEXT" . 

"NEXT" also clears Fl, F2, F3, CNTR, Subroutine Flag FF, and the 
ABS-BANK reg. 

NF1 Condition met if at the beginning of the cycle, flag 1 is cleared, 

NF2 Condition met if at the beginning of the cycle, flag 2 is cleared, 

NPRV Condition met if at the beginning of the cycle the privileged 

mode bit is not set. 

*NSME Condition met if all the bits of the T-BUS are not the same. 

*NZR0 Condition met if T-BUS is non-zero ; zero. 

*0DD Condition met if U-BUSC15) = 1. 
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*NOFL Condition met jf overflow out of the ALU does not occur. (Note 
this is not the overflow bit in the status word.) See also DCAD 

in function field. 
*P0S Condition met if U-BUS(O) = 0. 

RSB Hardware micro- jump to the address held in the SAVE register. The 
SAVE register contents is transferred to the RAR incrementer and the 
VBUS. If a JSB has not been executed prior to this option, it is 
treated as a NOP 

SR4 Condition met if the SR register is 4. 

SRL2 Condition met if the SR register is less than 2. 

SRL3 Condition met if the SR register is less than 3. 

SRN4 Condition met if the SR register is not 4. 

SRNZ Condition met if the SR register is non-zero. 

SRZ Condition met if the SR register is zero. 

TEST Condition met if any interrupt is pending. 

UNC Condition met unconditionally. 

*ZER0 Condition met if the T-BUS is zero. 



*These tests are defined to be the data -dependent tests. All other conditions 
are known at the beginning of the cycle. 
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MCU Field 

This field is executed in place of the "SPEC" field when the 
"S-BUS" field contains "RBR", or the "STORE" field contains 
"BUS", "BSP0", "BSP1", or "SBR". 

ABS Specifies ABSOLUTE bank register. May ve read onto SBUS(.14:15) 

with "RBR" or stored into from UBUStl4:15) with "SBR". This bank 
register is normally used with instructions requiring absolute addresses 

CMD Enables the bus option (BUS, BSP0, BSP1) in the "STORE" field to 
store the U-BUS into ACOR, and initiates a "low- request" command. 
When "selected", the ACOR register is output to the MCU bus, and 
the command and module number ("TO" lines) are obtained from the 
TO register and MOP register. 

CRL Enables the "STORE" field bus options (as above) to load TO register and 
MOP register from the U-BUS (CPU freezes until any pending MCU requests 
are completed). The registers are loaded as follows: 
MOP(0:1) := UBUS(10:11) 
T0(2:4) := UBUS(13.:15) 
MOP register then contains a "command" (defined by the user) for the 
module whose address is contained in TO register. 

DATA Enables the "STORE" field bus options (as above) to store the 
U-BUS into DCOR, and initiates a "high-request" command. 

DPOP Same as "DATA" above, and in addition pops the stack (see "pop" 
in "SPEC" field). 

DB Same as "ABS" above, except specifies the DB-Bank register. This bank 
register is used with DB-relative> addressing. 
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NIR Enables the "STORE" field bus options (as above) to store the 

U-BUS into DCOR, and initiates a "high -re quest". On the following 
"select" cycle, DCOR is read onto the MCU bus and is then stored 
into the CPU "NIR" register (Next Instruction Register). 

OPND Same as "NIR" above, except the MCU bus is stored into the CPU 

"OPND" register (Operand Register). 

PB Same as "ABS" above, except specifies the PB-Bank register. This 

bank register is used with PB-relative addressing. 

RND Enables the "STORE" field bus options (as above) to load ACOR 

from the U-BUS, and initiates a "low- request" command. The 
DB-Bank register is used to generate the module number. This is 
used to initiate a data fetch from memory. The returned data is 
loaded into the NIR register. 

RNP Same as "RND" above, except the PB-Bank register is used to 

generate the module number. 

RNS Same as "RND" above, except the Stack-Bank register is used to 

generate the module number. 

ROA Same as "RND" above except: 

1. The ABS-Bank register is used to generate the module number. 

2. The data is returned to the OPND register. 

ROD Same as "RND" above except: 

1. The DB-Bank register is used to generate the module number. 

2. The data is returned to the OPND register. 

ROND Same as "RND" above, except the data is returned to both the NIR 

and OPND registers. 
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RONP Same as "RND" above except: 

1. The PB-Bank register is used to generate the module number. 

2. The data is returned to both the NIR and OPND registers. 

RONS Same as "RND" above except: 

1. The Stack-Bank register is used to generate the module number. 

2. The data is returned to both the NIR and OPND registers. 

ROP Same as "RND" above except: 

1> The PB-Bank register is used to generate the module number. 
2. The data is returned to the OPND register. 

ROS Same as "RND" above except: 

1. The Stack-Bank register is used to generate the module number. 

2. The data is returned to the OPND register. 

ROSA Same as "RND" above except: 

1. The ABS-Bank register is used to generate the module number. 

2. The data is returned to the OPND register. 

3. The word addressed is set to all l's in memory. 

ROSD Same as "RND" above except: 

1. The data is returned to the OPND register. 

2. The word addressed is set to all l's in memory. 

S Same as "ABS" above except specifies the Stack-Bank register. 

This bank register is used with DL, Q, or S-relative addressing. 

WRA Enables the "STORE" field bus options (as above) to load ACOR from 

the U-BUS, and initiates a "low- request" command. The ABS-Bank 
register is used to generate the module number. This is used to 
initiate a data store into memory. On the "select" cycle, the 
memory module addressed interprets the data on the MCU bus as 
an address, and goes "BUSY". It stays busy until it receives the 
data to be stored (normally sent on the following cycle with a 
microcode BUS DATA instruction) and completes its "write" cycle, 
or until its timer runs down. 
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WRD Same as "WRA" above except the DB-Bank register is used to generate 

the module number. 

WRS Same as "WRA" above except the Stack-Bank register is used to 

generate the module number. 



NOTE: ACOR and DCOR refer to the "Address CPU Output Register" and "Data CPU 
Output Register" respectively. 
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ERROR MESSAGES "~ " ■ "" '" — "" 

1, INVALID CONTROL OPTION 

""'2. INVALID ADOR OR ROM K EXPRESSION" 

3. UNDEFINED LABEL 

4. RBUS»SHIFT FIELDS INVALID WITH ROM FNS 
5* 

6. 
7. 

— 8. 

9. 
13. SKIP FIELD INVALID WITH STORE RAR 

-11 . - = 

12. 

13. 

— 14* : 

15* 
16. 

17. 

18. 
19. 

~2*.-" 

21. 

22. 

-23.—INVALID-RBUS-OPTI0N * 

24. INVALID S3US OPTION 

25. INVALID FUNC OPTION 

"26. "INVALIOSHFT OPTION — : 

27. INVALID STOR OPTION 

28. INVALID SKIP OPTION 

"29. ! " 

3*. INFINITE REPEAT LOOP 

31. INVALID SPEC OPTION 
~32. INVALID SPEC/MCU OPTION 

33. 

34. 
-35. " 

36. 

37. INVALID REPN CONSTANT 
-->g , . 

39. DUPLICATE LABEL 
49. FORMAT ERROR 

41. INVALID MCU OPTION 

42. CLSR CONFLICTS WITH NEXT STACK PREAJUST 
43. 

44. 

45. 
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WARNING MESSAGES — " 

1. 

2. R8R CONFLICTS WITH PREFETCH ON INSTR ENTRY 

3. RBUS MAY BE FORCED ON FOLLOWING LINE 

4. SBUS MAY BE FORCED ON FOLLOWING LINE 

■ 5, CCAtCCZ SET ON TBUS "" ' —~ . ~_ 

6. PRECEDING TOS STORE NAME AFFECTED BY MREG OR QDWN 

7. TOS LOAD NAME AFFECTED BY PRECEDING MREG OR QUP 

■8. TOS LOAD NAME IS OLD NAME BEFORE PRECEDING PUSH, POP OR 
INCN 
9. 

1*. 

11* 

12. ZEROtNZROtNSME SKIP TESTS MADE ON T-BUS 

13;- 

14. 

15. CLIB MAY BE TOO CLOSE TO JLUI 

-16".- BOUNDS TEST WITH RRZiRLZtLRZt LLZ DOES A CAD — 

17* UBUS ON SBUS OR SRI MISSING FROM MPAO 

18. UBUS ON RBUS OR SL1 MISSING FROM DVSB 

19. SL1 OR' SRI "AS APPROPRIATE MISSING 

2£. FUNCTION AND STORE SP3 MAY CONFLICT 

21. FUNCTION AND STORE SPl MAY CONFLICT 

22." RBUS ON RBUS INHIBITS CONTENTS CHANGING 

23. SBUS ON SBUS INHIBITS CONTENTS CHANGING 

24. SKIP CONDITION MISSING FROM JMP,JSB 

25. STORE OR STORE-INCT CTR CONFLICT : 

26. STORE/SET'CLR CCtOVFLtCRRY STA BITS CONFLICT 
27. 

28." SR CHANGE CONFLICT 

29. NAMER CHANGE OR TNAME CONFLICT 
3d. OLD PB-BNK USED FOR NEXT PREFETCH 
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INTERRUPTS 

The following is a brief explanation of the hardware interrupt information 
available to the microprocessor, and the hardware dependent sequences that the 
microprocessor must execute to handle interrupts correctly. Interrupts are 
detected via the interrupt status registers CPX1 and CPX2. CPX1 contains all 
run state interrupts and status information, that is, those that occur while 
the CPU is executing instructions, and CPX2 contains all control panel interrupts 
in addition to halt-made status information. The special field option CCPX is 
used to control the information in the interrupt registers and hardware dependent 
sequences. 

Note that all interrupt bits in both CPX1 and CPX2 will cause a hardware jump to 
ROM address 3 in a NEXT skip field option is executed, and also will cause the 
TEST skip condition to be true. 

Control of the interrupt bits is accomplished by the run-halt state. In run 
state, all interrupt bits in CPX1 are allowed, while all interrupt bits in 
CPX2 are held off. In halt state, front panel interrupts are allowed, while 
ell interrupt bits in CPX1 except power-fail (CPX1(9)) are held off. Interrupt 
bits in CPX1 (except CPX1(0), the integer overflow bit) are cleared by executing 
a CCPX "SPEC" field option with a field decoded from UBUSt4:7l. 

Note that "clearing" the power fail interrupt inhibits all other Interrupt bits 
in both CPX1 and CPX2. All interrupt bits in CPX2 are cleared by executing 
a CCPX with bit 15 of the U-BUS being a 1.* Note that run, execute switches, 
and single instruction interrupts must be cleared before the execution of a 
NEXT. A complete description of CPX1 , CPX2 and the spec field function CCPX 
1s given on the following pages. 



Interrupt bits include CPX2(0:8). 
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CPX1, CpX2 Bit Assignments and SPEC field CCPX Option 



CPX1 



10 
11 
12 
13 
14 
15 



Halt 
Run 



BIT 

Integer OYFL 

1 Bounds Viol. 

2 Illegal Addr. Sys. Halt 

3 CPU timer 

4 Sys. P.E. 

5 Addr. P.E. 

6 Data P.E. 

7 *Module Intrp. 

8 ** Ext. Intrp. 

9 Power Fail 



CCPX 



FIELD 



CPX2 



MSB 



Field Code 



ILSB 

Diag. NIRTOCIR 



ICS Flag 
Disp. Flag 
Emulator 
I/O Timer 



Diag. Set CPX1(1:8) 
Clr. ICS Flag 
Clr. Disp. Flag 

Diag. Freeze 






NOP 




Run Sw. 


Clr. 


BNDV 


Dump Sw. 


Clr. 


111. Addr. 


Load Sw. 


Clr. 


CPU Timer 


Load Reg. 


Clr. 


Sys. P.E. 


Load Addr. 


Clr. 


Addr. P.E. 


Load Mem. 


Clr. 


Data P.E. 


Disp. Mem. 


Clr. 


Mod Intrp. 


Sing Instr. 


Clr. 


Ext. Intrp. 


Exec. Sw. 


Pwf Turn-off Int. 


Incr. Addr. 






Deer. Addr. 



Option Present Clr. Panel FF's. 



Tnh, PFARS 
Rev. Sys. Parity Sys. Halt 
Rev. MCUD Parity Run FF. 



•♦Interrupt is enabled by STAOl 
**Interrutp Poll is enabled by STAO) 
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CPX1 Definitions 



BIT 



Integer Overflow . This is the logical "AND" of STA(2) (user traps 
bit in STATUS reg.) and STA(4) (overflow bit in STATUS reg.). It 
allows an interrupt only if both are set. It can only be cleared 
by clearing either (or both) bits in the STATUS reg. 

1 Bounds Viol . This bit is set whenever an attempt is made to address 
outside the users assigned environment (i.e. USERMODE«[(E<DL or E>S) 
or (E<PB or.E>PL)]. See ERS for complete bounds check information. 

2 Illegal Addr . This bit is set when an attempt is made to address 
non-existent memory (i.e. an address larger than the amount of memory 
that is physically in the system). The bus transmission for this 
attempt is inhibited. 

3 CPU Timer . This bit is set if the CPU does not receive a response 
from a module it had previously addressed within 4.6 ms. It also 
forces the CPU out of any freeze state it might be in so that it 
can complete the instruction and service the interrupt. The result 
of the instruction in this case is normally garbage. (This is also 
referred to as a "non-responding module" interrupt.) 

4 Sys. Parity Error . This bit is set if a parity error is detected on 
the 8-bit system information (TO, FROM, COMMAND) on a CPU to memory 
or memory to CPU transmission. 

5 Addr. Parity Error . This bit is*set if a memory module detects a 
parity error on an address transmitted from the CPU. 

6 Data Parity Error . This bit is set if the CPU detects a parity 
error on the data transmitted from a memory module. Note that if 
memory receives data with bad parity (on a write cycle), it will 
store the information as received. No error information is generated. 
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BIT 

7 Module Interrupt . This bit is set if the CPU receives a command, with 
good system parity, and it is not expecting it. Note that, as well as 
detecting a possible error, it can also be used as a "semaphore" between 
the CPU and another module (e.g. a 2nd CPU) for information swapping 
(i.e. one CPU can send a command to the 2nd CPU saying, in effect "look 
in your mailbox (a known core location) for the information I am trans- 
mitting". This search v/ould be done in the module interrupt routine.) 

8 External Interrupt . This bit is set when a device (not masked off) is. 
requesting service. 

9 Power Fail . This bit is set when a power failure is detected. 

11 ICS Flag . Set=l when the machine is executing on the "Interrupt 
Control Stack". 

12 DISP. Flag. Set=l v/hen the machine is in the dispatcher. Since the 
dispatcher executes on the ICS, CPXl(ll) will also be set during this 
time. 

13 Emulator . Set=l by a switch on the ROM board when the /20 emulator 
y-code is being executed. Useful for "DPAN". 

14 I/O Timer . Set=l if an I/O device does not respond to a "Service Out" 
request or "data poll" within 3 psec. This does not generate an 
interrupt; instead it is tested in. the y-code which executes the I/O 
instructions, and its state is indicated in the STATUS reg "condition 
code" upon completion of the I/O instruction. This bit must be tested 
following the issuance of any I/O command (i.e. executing a "STORE" 
field IOA). It is cleared on the cycle following the reading of CPX1 
(following "IOA") which allows testing the bit. 

15 Option Present . Used to indicate whether or not a given instruction set 
option is present (using % 0204XX as the entry opcode). It is tested 

by y-code. 

10 • (Unused). 
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CPX2 Definitions 

BIT 

RUN SW . Set p 1 when the "BUN/HALT" switch, is depressed, \Th\s t in 
conjunction with the state of CpX2(.15i, is used to put the machine in 
the "RUN" or "HALT" mode. 

1 DUMP Sfrf . Set = 1 when the "SYSTEM DUMP" switch is depressed. 

2 LOAD Stf . Set = 1 when the "COLD LOAD" switch is depressed. 

3 LP REG . Set = 1 when the "LOAD REG." switch is depressed. 

4 LP ADDR. Set = 1 when the "LOAD ADDR" switch ts depressed. 

5 LP MEM. Set = 1 when the "LO^D MEM" switch is depressed. 

6 DISP. MEM. Set = 1 when the "DISPLAY: MEMORY" switch Is depressed. 

7 SINGLE INSTR. Set = 1 when the "SINGLE INSTRUCTION" switch is depressed. 

8 EXECUTE SW. Set = 1 when the "EXECUTE SWITCH REG." switch Is depressed. 
The Software instruction contained in the "SYSTEM SWITCH REGISTER" 

1s executed. 

NOTE: The above bits (CPX2(0:8)} are defined to be the "halt mode interrupts", 
and are enabled only when the machine is in "HALT" mode. They force 
the machine to jump to the y-code interrupt handler where. they are 
scanned in sequence to determine the action to be taken. When a hit is 
found = 1, a jump to a y-code routine is taken, the interrupt is serviced, 
and (except for CPX2(0)) the Machine returns to the "HALT" mode - the 
"RUN" FF is not turned on. As soon as the bit causing the interrupt is 
detected, it is cleared by an "INC CCPX" y-instruction to prevent further 
interrupts. 

The following bits in CPX2 contain miscellaneous panel information used 
only by the y-code. 
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II 

a INC. ADDR. Set * 1 If the Control Panel Memory Address INCREMENT 
switch and ENABLE switch, are both. on. This btt fs checked by the 
p-code to decide whether or not to increment the address following 
a "load" or "display" memory. 

10 DEC. ADDR. Same as bit 9 above except the switch must be tn the 
"DECREMENT" position, and is used to test whether or not to 
decrement the memory address. 

13 INH. AUTO-RES. Set = 1 if the Control Panel Auto-Restart switch is 
set to the "INHIBIT" position. 

14 SYSTEM KALT. Set = 1 by the p-code if a "SYSTEM HALT" condition Is 
detected. 

15 RUN FF. Set = 1 by the y-code when the machine is put in the "RUN" mode 
11,12 = 
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SPECIAL Field Option "CCPX" Definitions 

The following action takes place when the bit referred to exists on the 
DBAS in conjunction with the jj^op "CCPX" in the SPEC, field. 

Ill 

P HALT . Clears the "RUN" FP Ct.e. go to HALT). 

1 RUN. Sets the "RUN" FF. 

2 SYSTEM HALT . Sets the "SYSTEM HALT" FF. This ?? can only be cleared 
by "PON" or "SYSTEM RESET". When set, all interrupts are inhibited 
except "SYS DUMP", "LOAD REG", "LOAD/ DISPLAY MEM", and "PWR FAIL". 

3 Unused. 

4:7 CLEAR CPX1 . This field is decoded into 1 of 16, ANDed with. CCPX, 
and used to clear the appropriate bit in CPX1. These bits currently 
include 1:9, 11, 12, 14, 15. tBit is cleared by clearing OVFLO or 
USER TRAPS bit in the STATUS REG.) Bit 9 is not acutally cleared by this 
field; instead, a FF is set which inhibits any further interrupts of 
any type. This FF is cleared by "PON" or "SYSTEM RESET". The field 
decode/CPXl bit correspondence is shown below: 

UBUS(4:7) = 0000 NOP 



~ 0001 


clears CP; 


<l U) 


= 0010 




ii 


(2) 


*= 0011 




ii 


(3) 


= 0100 




H 


(4) 


= 0101 




n 


C5) 


= 0110 




ii 


C6) 


= 0111 




M 


(7) 


* 1000 




II 


(8) 


* 1001 




H 


(9) 


« 1010 


NOP 






= 1011 


NOP 






* 1100 


NOP 






= 1101 


NOP 






* 1110 


See 


"A" 




= mi 


See 


"B" 


i 
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BIT 

4;7 ft. Sets a FF which complements the system data parity bit. Remains 

complemented until a second (UBUSt4:7)=1110}*CCPX is executed. Used 
for diagnostic purposes only. 

8. Same as "A" except uses (UBUS(4:7)=llll).CCPX,and is used to complement 
the MCU data parity bit. Can be used to test either address or data parity, 

8 Diag. NIRTOCIR. Causes the contents of NIR to be loaded into CIR. Used 
mainly for y-diagnostics. Note that, due to the "pipe" structure of .the 
CPU, you must delay 1 clock before reading CIR to the S-BUS. This also 
resets the "CUB" FF. 

9 Unassigned. 

10 Diag. SET CPX1(1:8). Sets the interrupt FF's in CPXI corresponding to 
bits 1:8. This is used for y-diagnostics. 

ii CLEAR ICS FLAG. Clears the "INTERRUPT CONTROL STACK" flag FF. 

12 CLEAR DISP. FLAG. Clears the "DISPATCHER" flag FF. 

13 Unassigned. 

14 Diag. FREEZE. Sets the "FREEZE" FF which turns off the clock to the 
CPU. This forces the CPU to stop execution upon completion of the 
y-instruction containing UBUS(14)«CCPX. This FF is cleared by the 
Control Panel "RAR BREAKPOINT HALT/FREEZE-EXIT" switch. This function 
is used only for y-diagnostics. 

15 CLR PANEL FF's. Sends a reset tclear) signal to CPX2(0:8). This is, in 
effect, a master clear for these interrupts. 



A-10 



MICRO-PROGRAMMING NOTES 

The following is a random collection of notes which attempt to explain some 
obscure cases in micro-programming. 

1. The micro-assembler does not recognize the option "NOP" in any of the 
fields, and hence will generate an error message. To "NOP" a field, it 
must be left blank (note that the "FUNCTION" field may not by "NOPed" - use 
ADD for this case). 

2. BNDT, UBNT require one cycle only to execute. If the trap is taken (a 
fault detected), two overhead cycles are required (Freeze, N0P2) before 
the execution of the mi cro-inst ruction at ROM ADDRESS 2. 

3. JLUI and RSB can be executed from RANK1 if the line of microcode in 
RANK2 

a) is cancelled by N0P2 

b) contains a ROM function 

c) contains a NOP skip test 

d) contains a non-data dependent skip test (options 14-27, 32-34) 
which is not met 5 

or if a previous JMP/JSB-UNC has just been taken from RANK1. 

These all result in a zero-overhead JLUI or RSB. 

4. a) JMP/JSB-UNC can be executed from RANK1 if the line of microcode in 

RANK2 

1) is cancelled by N0P2 

2) contains a ROM function 

3) contains a NOP skip test 

4) contains a non-data-dependent skip, test (options 14-27, 32-34) 
which is not met 

or if a previous JMP/JSB-UNC, JLUI, or RSB has just been taken 
from RANK! . 
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Otherwise JMP/JSB-UNC is executed from RANK2. If the JMP/JSB is 
executed from RANK1 , there are no overhead clocks required. The 
micro-instruction jumped to will execute on the clock following the 
execution of the JMP/JSB micro-instruction. Note that, although 
the JMP portion of the mi cro-inst ruction may execute in RANK1 , the 
remainder of the instruction executes in RANK2. Hence the timing 
for micro- code of the form 

RA RB ADD - SP2 — — 

— RC JMP TARG SP3 — UNC 



TARG - SP2 INC 
1s as follows: 

Clock 1 



In RANK2 

RA + RB -► SP2 
In RANK1 

TARG + 1 + RAR 

(TARG) + RANK1 Input 



- SP1 — — 

• 

Clock 2 
In RANK2 

RC -#■ SP3 
In RANK1 

(TARG) = SP2 INC SP1 



Clock 3 
In RANK2 

SP2 + 1 + SP1 
In RANK1 

(TARG + 1 ) 



4. b) JMP/JSB-UNCs which are executed from RANK2 because none of the above 
fast-jump conditions were present,' and conditional JMP/JSB' s which 
are always executed from RANK2 behave as follows: 

1) NOT TAKEN - next line in sequence executed on next clock 

2) NON-DATA-DEP TAKEN - one overhead clock required (N0P2) before 
target line executed 

3) DATA-DEP TAKEN - two overhead clocks required (FREEZE, N0P2) before 
target line executed 

Execution of JMP/JSB (or RSB, JLUI) in RANK2 inhibit any fast jump 
execution fram RANK1. Hence, if there are two consecutive lines of 
micro-code containing JMP, and the JMP in tte first line is taken 
from RANK2, the JMP in RANK1 will be ignored. 
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If N0P2 is set, any inhibits from this rank that might have held 
off fast jumps from RANK1 are removed. This would allow code such 
as the following to execute with the timing shown: 

— RA JMP X SP3 — Fl All conditional JMP/JSB's 
I! execute in RANK2 



X — RB JSB Y SP2 — UNC 



timing 



Clock 1 



JMP instr in RANK2 
anything in RANK1 

RA- SP3 
Assume Fl = 1 
X + 1 - RAR 
(X) + RANK! 



Clock 2 

N0P2 

JSB instr in RANK1 
Y + 1 -> RAR 
(Y) ■+■ RANK! 



Clock 3 

JSB instr in RANK2 

RB - SP2 
(Y) in RANK1 

etc. 



5. The following describes how the CPU will behave for various pases of 

JMP/JSB's with possible operand freezes. Note that this is not necessarily 

an all-inclusive list of cases. 

1 ) RA RB ADD -- RC — Fl 

— UBUS JMP X SP3 — UNC 

— OPND ADD — SP1 — — 



X — OPND ADD SWAB SP1 

A) Fl = 0. "JMP X - UNC" will execute from RANK!. Hence the third 
line of micro-code will never be seen. However, when "JMP X - UNC" 
is in RANK2 to complete its execution, (X) is in RANK1. An OPND 
freeze (if required) would now occur. 

B) Fl = 1. Now the JMP will not be taken. Instead, when "JMP X - UNC" 
is loaded into RANK2, N0P2 is also. set. However, the third line 

of micro-code (containing "OPND ADD - SP1") is alst> loaded into 
RANK! on this clock, and an OPND freeze due to it could occur. 
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2) — RA JMP X SP3 — ZERO 
— OPND ADD « SP1 — -- 



3) 



X OPND ADD — SP0 ^- — 

This "JMP X" will always execute from RANK2 since it is a data- 
dependent conditional jump. 

A) (RA) f 0. No jump taken. The line of micro-code in RANK1 
containing "OPND ADD - SP1" would cause an OPND freeze, if 
required. 

B) (RA) = 0. Jump is taken. A one-clock freeze is forced by the 
data-dependent condition in order to get X + 1 •*■ RAR and 

(X) -► RANK1 (+ may be read "to the input of"). This over-rides 
any previous RANK1 freeze (e.g. OPND). This is followed by NOP2 
to fill the pipe, at which time RANK1 freezes are re-enabled. 
Note that this can, in effect, stretch out the N0P2 cycle due 
to a freeze. The timing sequence is shown below: 

no clock ■ clock 



Time Period 1 


Time Period 2 


Time Period 3 


JMP X - ZERO in RANK2 


Freeze period 


N0P2 


UBUS = = freeze 


X + 1 + RAR 


(X) in RANK1 


clock 


(X) - RANK1 
over- ride OPND freeze 
RA+ SP3 


(freeze if req'd) 


— RA ADD ZERO 




— — JMP x -- - UNC 




— OPND ADD ~ SP1 


.. -- >. 





X — OPND ADD — SP3 — — 

Again, the "JMP X - UNC" will execute in RANK2 since it is preceded 
by a data-dependent skip condition. The two cases here are 

A) (RA) = 0. The "ZERO" test will set N0P2, forcing the "JMP X - UNC" 
in RANK2 to be NOPed. The "OPND ADD - SP1" micro-instruction in 
RANK1 can force an OPND; freeze (if required), in effect extending 
the N0P2 cycle. 
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B) (RA) f 0. The micro-instruction "JMP X - UNC" will now execute 
from RANK2. "OPND ADD - SP1" in RANK! may try to force an OPND 
freeze. However the act of executing a JMP will over-ride this 
freeze for one cycle. When RANK1 is loaded with (X), any 
freeze condition implicit in this instruction is enabled. The 
timing for this sequence is shown below: 



Clock 1 
JMP X - UNC in RANK2 
X + 1 + RAR 
(X) - RANK1 
OPND ADD - SP1 in 
/RANK1 
OPND freeze over- ridden 



Clock 2 
NQP2 
OPND ADD - SP1 in 

RANK2 ignored 
OPND ADD - SP3 in 

RANK1 - possible 

freeze. 



Clock 3 
Possible freeze - 

period. If not, 
OPND ADD - SP3 in 
RANK2 

OPND + SP3 



6. Some confusion may exist concerning the state of the RBUS reg., SBUS reg., 
and UBUS following different kinds of JMP/JSB* s. The following examples 
may help to clear this up. As a. point of interest, it may be noted that 
JMP/JSB and ROM functions (ROM, ROMN, etc.) are always decoded in RANK1 
in order to determine what to do with the RBUS reg. On the clock edge 
where the JMP/JSB micro-instruction is transferred from RANK1 to RANK2, 
the RBUS register is loaded with all 0's, and for the ROM function it is 
loaded with the ROM constant. The normal R-field decode is inhibited for 
these cases. As an additional note of interest, it may be seen that it 
is possible for the four least significant bits of the JMP/JSB target 
or ROM constant to appear to be the R-field decode of "RBUS". This would 
tend to inhibit clocking the RBUS reg. Special hardware has been put 
into the CPU (the RFINH signal) to prevent this, thus insuring the RBUS 
register will clock. 

1) RANK1 Jump Taken. Assume code of the form 

— SP0 ADD — SP2 — — 

— SP1 JMP X -- — UNC 
RA RB ADD - SP3 — — 
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then 



A) 


X RBUS SP3 ADD . . . ; 


, UBUS <«- + (SP3) 


B) 


X UBUS SP3 ADD . . . ■ 


» UBUS «- (SP1.) + (SP3) 


C) 


X - UBUS ADD . . . ■ 


, UBUS -»- (SPI) 


D) 


X - SBUS ADD . . . : 


, UBUS «- (SP1 ) 


E) 


X RA SBUS ADD . * . ; 


, UBUS + (RA) + (SP1) 



2) RANK2 Jump Taken. Assume code of the form 

RA RB ADD — SP1 — — 

— SP3 JMP X — — POS 

RC RD ADD — — — — 



then 

A) X - UBUS ADD 

B) X RBUS - ADD 

C) X - SBUS ADD 

D) X UBUS SP2 ADD 



UBUS 
UBUS 
UBUS 
UBUS 



(RC) + (RD) 

(RC) 

(RD) 

(RC) + (RD) 



+ (SP2) 



3) RANK2 Jump Not Taken. 
RA RB ADD — 
— SP3 JMP X 



Assume code of the form 
SP1 — ZERO assume UBUS 
— UNC not taken 



= 



then if the next sequential line is: 



A) RBUS - ADD 

B) - SBUS ADD 

C) UBUS UBUS ADD 

D) RC RD ADD 



UBUS + 
UBUS «■ (SP3) 
UBUS «- (SP3) + (SP3) 
UBUS «■ (RC) + (RD) 



In order to simplify the micro-code in the memory-reference address 
calculations, a FF has been put in the CPU , to' provide automatic bank 
register selection between the DB bank register and the stack bank 
register. It works as follows: 

The micro-code always specifies the DB bank for DQS address calculations. 
If, for mem. ref. instructions (and not loop control (TBA, etc.)), 
Q- or S-rel. addressing is specified, the FF is set. When the memory 
reference is made, the bank reg. pointed to by this FF is appended 
to the leading bits of the calculated address to form the 18 bit 
address. 
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The FF is cleared (so that the MCU option "ROD" always points to 
the DB bank) by the spec, field option "CUB", or by "NEXT" or 
"System Reset". 
This is a special -purpose FF which can only be set through sub-ops 
04-17, and hence is of no use to the general -purpose micro -prog rammer. 

8. Do not attempt to execute a memory operation between issuing a "BUS CRL" 
and "BUS CMD\ The "TO" and "OPERATION" information for the "CRL" 

..will be lost if this is done. Refer to HP 3000/20 Rev. E micro-code 
for the CMD instruction (02356 - @2362) for an example of code that will 
be invalid on the HP 3000/30. (Note: a CRL must be issued prior to each 
CMD to insure correct MCU operation.) 

9. When storing data into memory, the data is normally sent on the line of 
micro-code immediately following the address transmission. Under no 
circumstances should more than one line of micro-code be inserted 

-between the address transmission and the data transmission (I/O band- 
width could be affected). Also, this line should not contain a BUS-OP. 
This would cause the "TO" information from the address transmission to 
be lost. 

10. When a line of micro-code is skipped, the function field is changed to 
"ADD", the shift, store, spec, and skip fields are NOP'ed, and 

UBUS «- (RBUS) + (SBUS). If the function field of the skipped micro- 
instruction contains ROM, ROM I, ROMN; or ROMX, the RBUS reg. will be 
loaded with 0's instead of the ROM constant. 

11. Interrupts are checked on the clock cycle following the execution of 
"NEXT" in RANK2. Hence, a line of micro-code such as 

***** SOV NEXT (* = valid u-op) 
would (if the user traps bit in the status word were set) cause an 
interrupt. Replacing "SOV" with "CLO" would prevent an OVFLO interrupt. 

The External Interrupts Enable/Disable bit (STA(l)) is handled differently. 
See the HP 3000/30 ERS for an explanation of its effect. 

As a result of the above, ADDO, CADO, INCO, and SUBO are now one cycle 
operations. 
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12. The line of micro-code pointed to by an L.U.T. entry may not contain 
"JLUI" (this is normally the first line of a micro-program). This is 
due to hardware limitations of the "NEXT" sequence. 

13. Subroutines may be placed in-line in critical spots. "RSB" is treated 
as a "NOP" unless a "JSB" has been previously executed. Subroutines may 
be exited by "RSB" or "NEXT". 

14. "QASL", "QASR" are normally executed in a "REPEAT" loop where any 
register-handling anomalies are handled by the pipe. It is possible, 
however, to do a single quadruple- reg. shift outside a "REPEAT" loop. 
For example, assume it is desired to do a one-bit "QASL". Let 

RA + hi-bits 
RB <• next most bits 
RC .*- next least bits 
RD •+• lo-bits 

The following code would execute the shift: 

RB — ADD ~ SP3 — — SP3 <- next-most bits 

RC — ADD — SP1 — — SP1 -*- next-least bits 

RD RA QASL SL1 SP0 — ~ , RBUS^- lo-bits 

(1) - ADD - SP2 — - SBUS+ hi-bits 
Upon completion of the code, SP0 «- hi-bits, SP3 + next-most bits, SP1 *■ next- 
least bits, and SP2 «- lo-bits. Note that (1) in the third line of code (left 
blank) is an implied "RBUS". 

15. One-line subroutines are not allowed. 

16. It is legal to do "STORE" and "NEXT" on the same line of micro-code; however, 
interrupt information based on the state of the "USER TRAPS BIT" and "OVFLO" 
(STA(2) and STA(4)) will be from the old state of the STATUS reg. - not the 
new. It is not legal to do this if STA(l) (External Interrupt bit) is changed 
from 1 to 0. Since IPOLL can take up to 925 ns to detect the interrupting 
device, it could be possible to have an Ext. Int. occur on the following 
instruction even though STA(l) had been turned off in the current instruction. 
If STA(l) is to be disabled, it should be done 1 usee (6 clocks) before 
executing "NEXT". 

Also, it is not legal if the "Right Stack-op Pending" bit (STA(3)) can be 
changed. This affects the "NEXT" sequencer. If this bit can be changed by 
storing status, then the store must be done at least 2 lines preceding "NEXT". 
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17. If a line of y-code contains both a. ROM function (ROM, ROM, ROMN, ROMX) 
and a BUS-OP (BUS, BSP0, BSPU in the store field, an implied DATA will 
be issued to the MCU. This is convenient for y-diagnostics for storing 
programs in memory. For example, if SP0 contains an address, then 

SPJ5 - ADD - BUS WRA 

ROM - BUS 101000 

is sufficient to store the. constant 2101000 at (SPP) in memory. 

18. It is legal to execute "Store P" and "NEXT" on the same line of y-code - e.g. 

SP0 INC - P - NEXT 
If this case is detected, the address used for the pre-fetch in NEXT is 
taken from the U-BUS rather than the P-reg. 

19. The Subroutine Flag FF is set by execution of "JSB" in the ROM Function 
Field and "condition met" in the Skip field, and is cleared by "RSB", "NEXT", 
PON, system reset, or detection of a bounds violation (using BNDV or UBNT). 

20. Execution of the line of y-code 

RBR ADD - BUS DATA - 

results in the DB-Bank being loaded into DCOR. This is accomplished by 
pre-decoding RBR-DATA in RANK1 and loading DB-BANK into the RBUS register. 

21. The sequences 

* * * * * * NEXT 

* RBR * * * * * ■ 

or 

* * * * SBR * NEXT 

are not allowed (* = valid y-op. It could foul up the bank register select 
(PB-Bank) for the NEXT pre-fetch. 

22. The first line of a y-program executed following the "NEXT" sequence 

cannot contain "RBR" or "OLUI". The "NEXT" sequence will not execute properly 
if this is the case. 

23. "CUB" must be executed at least 2 lines before "JLUI" (since "JLUI" can 
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24. Assume a typical sequence of y-code as shown below: 

* * ADD * BUS ROD * * « any valid y-op. 



* 



* 
OPND 



ADD 
ADD 



BUS 
BUS 



WRA 
DATA 



Do not insert a line of y-code between the lines containing "WRA" and 
"DATA". "OPND" is used to freeze (hold-off) the write conmand, if 
necessary, due to the preceding data fetch. 

25. Following are some restrictions on the function field y-op "DCAD"; 

A. Do not use with store field ops "BUS, BSP0, BSP1, or SBR". 

B. Do not use with skip field ops "POS, NEG, BIT6, BIT8". 

C. Do not use with spec field op "CCB". 

In general these_are timing constraints due to the 2nd level of addition 
in this function. 

26. The timing sequence for the store field op "RAR" is shown below: 



execute 
STORE RAR 
in RANK2 

Data + UBUS 



JMP FRZ 



UBUS -* VBUS 
-►R0M+RANK1 



N0P2 



RANK1-*RANK2 



execute 
y-inst. at 
new addr. 



27* Due to the 12-bit address space in the y-word format, JMP's & JSB's are 
limited to a 4K range. On JSB, however, the entire 16-bit RAR is saved 
in the SAVE reg., and restored on RSB. Therefore if you wish to use a 
subroutine in a 4K bank (of ROM/RAM) other than the one you are currently 
executing in, it may be accomplished as shown in the following example 
(note: this is intended for future applications only): Continued on 
next page. 
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27. (Cont.) 




4K 
n4K 



(n+l)4K 



ROM space 

%KKKKKK subroutine 



* * ADD * * * RSB 



* * JSB X * * UNC 



X ■ * * ROM * RAR KKKKKK 



return 



10 to subroutine 
;K=% digit) 
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